Select Code to Download

my $string = quotemeta @TAGS2;

$ perl -wE 'my @x = qw{$ % ^}; my $y = quotemeta @x; say $y'
3

$ perl -wE 'my @x = qw{$ % ^}; my @y = map { quotemeta } @x; say "@y"'
\$ \% \^

while ( my $text =~ m/ ( .{0,25} $string.{0,25} ) /gisx ) {

my $x = ...

$x =~ /.../

my $text = ...
...
while ($text =~ ...