#!/usr/bin/perl
use strict;
use warnings;

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

##</code><code>##

Possible unintended interpolation of @t in string at ./scratch.pl line 6.
Global symbol "@t" requires explicit package name at ./scratch.pl line 6.
Execution of ./scratch.pl aborted due to compilation errors.

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

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