perl -ne "print qq(Hallo Welt\n) if /send/"