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.
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"