#!perl -pl /,/;$_=$`-$'&&$`>$'^/D/?STOP:WAIT