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

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;