perl -i -ple 'truncate $1, 0; print q{hello}' ./testpl