$p='/sfldbimsfQsfiupobutvK';@s=(8,12,19);for ($i=length($p)-1;$i>=0;$i--) {$s = substr $p, $i, 1;$x = chr ( (ord ($s))-1 );print $x;foreach $c (@s) {print ' ' if ($i eq $c-1);}}