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