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