use strict;

my $code = <<'CODE';
 
sub sym {
    for(1..shift) {
        sub s{$_[0]==join"",reverse split//,$_[0]}
        if(&s($_)&&&s($_**2)){$s{$_}=$_**2}
    }
    \%s;
}

CODE

$code =~ s/^\s+|\s+$//gm;
$code =~ s/\n//g;
$code =~ s/^sub\s+(\w+)\s*{//;
$code =~ s/}$//;

printf "Length of sub '$1' => %d chars", length $code;

__END__