while($data =~ m/\n\s*(\w+)\s+(.*);/g){ print "$1::$2>>\n"; }