my $bigfoo=quotemeta('aabbaaa$@!#@#$^$#@^bbabaaba');
assert $bigfoo =~ /(a|b)*$foo(a|b)*/;