if( $line =~ m/test/ ) { $line = "#" . $line; print "$line\n"; }