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