$_='it does act as i wish, kids! :-)',/^.{8}?(.{2}?).{10}?(.{1}?).{2}?(.)/,$c=$2.$1.$3,$s=$c;
for(0..572334){($_==(4**4)**2-((4*4).(4).(39))&&($a=$s))||(($_-143703)**2||($b=$s));$s++}
2*$b=~m&^.(..)&&print"$a $s$1 $b $c$1";