matching a variable containing metacharacter treated as character

[docdurdee]

Dearest Monks, I have a humble question: How do you match a variable containing a metacharacter that should be treated as a regular boring character? I'm processing some files (@foos) with dots in them. I want:

my @subfoos = grep{m/$var/} @foos;

I ended up with something awful:

 
my $regvar  = $var; $regsol =~ s/\./___/g;
my @subfoos = map {s/___/\./g; $_} 
              grep{m/$regsol/} 
              map{s/\./___/g; $_}@foos;
}

is there a better way?

[choroba]

Use \Q:

grep /\Q$var/, @foos;

See Escape sequences for details.

[docdurdee]

Thank you!

[Anonymous Monk]

quotemeta