# Marko
$_=pack+u,'packed-source-string';y/1-Z/7 ^A9-@5Fa-}/;eval
# Sec
($_=pack u,q{packed-source-string})=~y/'A-Z`/ a{-}e-i\n\t1 n-yFm/;eval