sample item text one sample item text two sample item text three sample item text four ##

##

open(IN, "test.txt") || die "\nCan't open test.txt \n";
open(OUT, ">test.out");
$/="";
{
   local $/ = '';
   print OUT scalar ;
   for () {
      s@([\d\D]*?)@
      my $var = $1;
      $var =~ s!\s+! !g;
      $var @e;
      print OUT;
   }
}
close(IN);
close(OUT);

##

##

sample item text one
sample item text two
sample item text three
sample item text four