PERL regex character range overflow fix

git-tfs-id: [http://falcon:8080/tfs/Projects]$/Phalanger/Main;C5427