This is interesting. As I've painfully learned from experience , the use of strict would prevent you from even allowing you to pass bare words to oct. Maybe I'm impetuous, but the perldocs are rather vague that a string must be passed to oct.
Cheers
s;;5776?12321=10609$d=9409:12100$xx;;s;(\d*);push @_,$1;eg;map{print chr(sqrt($_))."\n"} @_;