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