@_=split/ /,<>;\x0d for(@_){$a=" ";$c=lc;\x0d while($c=~s/(.)//){$b=$1;\x0d if($a ge$b){$a=0;last}else{$a=$b}\x0d }$a and push@m,$_\x0d }print"@m"
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page