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