Fix regex for newer Perls
new version