Help for this page

Select Code to Download

Select or download this

my $line = 'valid text blah blah # delete me and everything after poun
+d # also this';
$line =~ s/#.*$//;
print qq{"$line"\n};

Select or download this
```
"valid text blah blah "
```