6 my $row = join('', 'a' .. 'p');
7 # my $row = join('', 'a' .. 'e');
9 for my $move (split /,/, <>) {
11 if ($move =~ /s(\d+)/) {
12 $row =~ s/(.*)(.{$1})/\2\1/;
13 } elsif ($move =~ /x(\d+)\/(\d+)/) {
14 my ($a, $b) = (substr($row, $1, 1), substr($row, $2, 1));
15 substr($row, $1, 1) = $b;
16 substr($row, $2, 1) = $a;
17 } elsif ($move =~ /p(\w)\/(\w)/) {
18 eval "\$row =~ y/$1$2/$2$1/";