Select Code to Download

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

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

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.

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

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