@o=map({$v= 1;for$i(1..(length($_)-1)){ if(lc(substr($_,$i-1,1))ge lc(substr($_,$i,1))){$v=0}} $v?($_):()}split(/ /,<>));print"@o"