fixed deprecated (perl 5.21) regexp syntax