perl -pe ' BEGIN { print "Header....\n" } s/asd/wer/g; END { print "Ende...\n" } '