if( $line =~ s/\btest\b/^\#/ig ) {
                print  "$line\n";
        }

##</code><code>##


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