$ printf "hi\n\004\nthere\n" |perl -e'while(<>){print}' hi there