perl -ne "BEGIN{ $/ = qq(\r\nCAS*\r\n) } /00003/ and print" "filename"