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