#!perl -lp $_=/\B.{4}$/?(LI.N x"@-".UX^uc)=~y///c:-1