$ perl -Mutf8 -le " utf8->SWASHNEW(q/Print/) ; print for %INC" #### $ perl -le " qr{\P{Print}}; print for %INC; " #### preload_unicore (); print for keys %INC; sub preload_unicore { use File::Find::Rule; use Config(); my $privlib = $Config::Config{installprivlib}.'/'; my @files = File::Find::Rule->file->name(qr/\.pl$/)->in( $privlib.'unicore/' ); tr{\\}{/} for $privlib, @files; s{^\Q$privlib\E}{} for @files; eval { require "$_"} for @files; }