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