@= = "GqwpWrlplbnTbnpDwghav" =~ /.../g; @+ - map { +map ++$_, @= } + $= ... 3**7; @' = split /(?=[A-Q])/, join $*, @=; die +qq+ @'$/+