Starting from liverpole's version, here's yet a few character's cut.

s;;5776?12321=10609$d=9409:12100;;s;\d*;push@_,$&;eg;warn chr sqrt,$/f
+or@_
[download]