perl -e"BEGIN{$/=qq[the word or phrase]}" 
-ne"$n=tell ARGV; close ARGV; truncate $ARGV, $n" path\to\the\file