$P = $P[$f|ord($p{$_})&6];
        $p{$_}=/ ^$P/ix?$P:close$_