#!/usr/bin/perl

$str = 'To: ';
$str .= ' <te@ex.com>,
'x4337;
$str .= 'X-UID: 45974';
my(@ret) = $str =~ /^(?:To:[ ]+(.*\n(?:\s+\S.*\n)*))/mig;