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