Aegilops by BioFALSE (author)

@_=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