You are right
thanks

#!/usr/bin/perl -w

use strict;

sub slurpie {
      local $/ = '';   # put into paragraph mode (separated by one or more blank lines
      while (<DATA>) {
           next unless /^\w\w.+(\w\w).+(\b\d\d\d\b).+(\w\w)/sg;  #should only match first paragraph
           print "$_\n";
      }
}


slurpie();

__DATA__
hi
hi
234
hi

hoi
sdfsdfsdf23423
hi

hi
hi
1234

1


:!././././././././././perl_slurp.pl
hi
hi
234
hi