#!/usr/bin/perl
use strict;
use warnings;

my $string = '\.foo';
print $string, "\n";

for (1..3) {
    $string = quotemeta $string;
    print $string, "\n";
}

__END__
# prints:
\.foo
\\\.foo
\\\\\\\.foo
\\\\\\\\\\\\\\\.foo