perl -lne 'print "Got CR" and last if /\r/' t1Vevents.txt