sub parse_line my line shift my regex qr my regex qr line regex em em

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;