@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"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page