I'm surprised it didn't exit with an error message similar to

Perl v5.10.0 required--this is only v5.8.8, stopped at Perl-1.pl line 
+6.
BEGIN failed--compilation aborted at Perl-1.pl line 6.
[download]

Ahh your error occurred on line 14 whereas the regex in my script is on line 16, I guess you removed the use 5.010_000;

If you are running an older version of perl you'll need to remove the named captures & use regular captures. It's just removeing ?<name> and using numbered captures to initialize variables. You'll also need to replace the says with print ... "\n"