perl -le "~~s--*l-e=>y²*(min²*(cme(²=>s)[^\w]))g=>print"