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