Select Code to Download

#!/usr/bin/perl -w
use strict;
...
}
my $foo = '$bar';
print "It matched!\n" if (grep /$foo/, FOO());

my $foo = '\$bar';