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

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