>perl -wMstrict -le "my $var = quotemeta 'my_stuff[1]'; print 'match' if 'my_stuff[1]=400' =~ /$var/; " match