in reply to Re^2: Perl will not match my RegEx pattern....
in thread Perl will not match my RegEx pattern....

qw does not interpolate variables. This statement is equivalent to 
my $acopy = '$SeatLoc';

[download]

Note the single quotes.

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

In Section Seekers of Perl Wisdom