sub ano1 { (pop ^ pop =~ tr/A-Z/\0/r) =~ tr/\0-/-=/r =~ s/(=+(\w))/$2 x length $1/ger =~ s/((.)=+)$/$2 x length $1/er }