>perl -wMstrict -le
"$_ = 'p1r4k/8';
 my $t = 'p-r----k/--------';
 no warnings 'void';
 s/8/7-/g-+s/7/33-/g-+s/6/5-/g-+s/5/22-/g-+s/4/3-/g-+s/3/11-/g-+s/2/1-/g-+s/1/-/g;
 print qq{'$_'};
 print $_ eq $t;
"
'p-r----k/--------'
1