perl -e "print 'h@t'=~ /\@/g"

##</code><code>##

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