Commented use warning; and user strict; until all the errors and warnings are solved.
Issues found:
Line 124, uninitialised value $after (special case)
Line 109, quotemeta in non-ASCII/Chinese (matches nustring many times in regex)
Line 111, (nustring again!) (special case)
