Fix for older Perls

'//' operator was introduced at Perl 5.10.
Merge pull request #1 from syohex/fix-for-older-perls

Fix for older Perls