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

See perlop for the q operator; look under "Regexp Quote-Like Operators", and a few scrolls down from that :)

PS: Your link to Re^3: Matching @ in string is broken because you did node=id instead of node_id - see What shortcuts can I use for linking to other information? for better, more efficient means of linking to information on Perlmonks.