perl -Mstrict -w -pe 's/bla\@fasel/foo\@bar/g' testdatei.txt