perl -e 'if ("h\@t" =~ /(\@)/ ) { print $1 }'