And a further refinement to compact the data string and remove the "wordy" join and map:

use strict;
$==0;eval q;
$uhJ;
||$@=~s^\^^\\^&&s&&u;QcS%NQKYV<=x)g9WLPPZ:?g8\@lTU52}1&&&s
%.%$=-=0b111x2-ord$&;$@=~m;^.{$=}(.);;$1%ge&&eval
[download]