--expected results--
1hi
hi
hi

2hi
hi

3hi
hi

##</code><code>##

[root@myserver tmp]# cat perl_slurp.pl
#!/usr/bin/perl -w

use strict;

sub slurpie {
      local $/  ;
      while (<DATA>) {
           print "$. $_\n";
      }
}


slurpie();

__DATA__
hi
hi
hi

hi
hi

hi
hi
[root@myserver tmp]# ./!$
./perl_slurp.pl
1 hi
hi
hi

hi
hi

hi
hi


___________________________________________________________

##</code><code>##

#!/usr/bin/perl -w

use strict;

sub slurpie {
      while (<DATA>) {
           local $/  ;
           next unless /^\d+/;
           print "$. $_";
      }
}


slurpie();

__DATA__
hi
hi
234
hi

hoi
sdfsdfsdf23423
hi

hi
hi
1234

1
[root@myserver tmp]# ./!$
./././././././././perl_slurp.pl
3 234
12 1234
14 1