Fixed perl regex semantic error