Select Code to Download

my $string = 'Frank';
my $name   = 'Frank';

print $1 if $string =~ /^$name$/;
print $1 if $string =~ /^($name)$/;

Use of uninitialized value $1 in...

Frank