echo 'h@t' | perl -ne 'print /\@/g'