Select Code to Download

$ perl -Mutf8 -le " utf8->SWASHNEW(q/Print/) ; print for %INC"

$ perl -le " qr{\P{Print}}; print for %INC; "

preload_unicore ();
print for keys %INC;
...
    s{^\Q$privlib\E}{} for @files;
    eval { require "$_"} for @files;
}