@_=split/ /,<>;
for(@_){$a=" ";$c=lc;
while($c=~s/(.)//){$b=$1;
if($a ge$b){$a=0;last}else{$a=$b}
}$a and push@m,$_
}print"@m"