s/(f\W*o\W*o|b\W*a\W*r|b\W*a\W*z|b\W*a\W*t) /($a=$1)=~s/\W+//g,$table{$a}/xe