Help for this page

Select Code to Download


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