1 2 3 4 5 6 7
sub parse_line { my $line=shift; my $regex=qr/\/\/([^\s]?.+[^\s]?)?\/\//; # my $regex=qr/\/\/([^\s]?.+[^\s]?)?\/\//; $line=~s!$regex!<em>$1</em>!g; return $line;