Be compatible with 5.8

Make a trivial change to a regex to be compatible with perl 5.8