perl -e 'if ( q|$201.00| > q|$200| ) {print 1}else{print 0}'