Fix for older Perls

'//' operator was introduced at Perl 5.10.