#!perl -paF(?=[A-HJ-Z]|InP)
$_=lc"@F"