[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


___________________________________________________________