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