Help for this page
#!/usr/bin/perl use warnings; ... return $a if ( $a le reverse( $a ) ); return reverse( $a ); }
C:\Code>perl symmetrize.pl AA => 2 ... CZ => 3 YZ => 2 ZZ => 4