while ($data =~ /^(?<line>.*)$/gm)
{
    print "<3>" . $+{line} . "\n";
}