#!/usr/bin/perl
use Modern::Perl;

my $capture;
my $SFS = '<big><a name="hit men for hire" style="font-weight:bold;">Hit Men</a></big>';          # *1

my $regex = qr#<a name="([^"]+)#;   # *2

if ( $SFS =~ /$regex/ ) {
    $capture = $1; 
    say "\$capture: $capture" 
}else {
say "No match";
}

#  $capture: hit men for hire