在正则表达式中使用变量的一个问题

test.pl程序如下:
#! perl/usr/bin -w
use strict;
my $line;
my $patten = "a\\b\\c\\";

open FN, "filelist.txt" || die "can not open: $!";
while ( defined ( $line = <FN> ) ) {
chomp $line;
if ( $line =~ /$patten/ ) {
print $line."\n";
}
}
close FN;

filelist.txt内容如下:
a\b\c\1.txt
a\b\c\2.txt
a\b\c\1.txt

$line =~ /$patten/匹配不到，报错！感觉是$patten中带有“\\”引起的，有什么方法可以解决呢？