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