perl -pi.bak -e "$_ = '# ' . $_ if /\btest\b/" filename.txt