#!perl -lp
$_|=(join'',sort/./g)eq$_