my $chr = chr(12); 
 
my $prefix = 'slice'; 
$count = 0; 
 
open (FILE, $ARGV[0]); 
while (<FILE>) { 
  if (/$chr/) { 
  $count++; 
  open (OUTPUT,">$prefix.$count"); 
  print OUTPUT $`; # want what's before 
  close OUTPUT; 
  } 
}

#!/usr/bin/perl 
# 
$count = 0; 
my $filename = 'input.txt'; 
open my $infh, '<', $filename or die("$!\n"); 
{ 
                  local $/ = chr(12); 
                  while (my $block = <$infh>) { 
                                         chomp; 
                                         $count += 1; 
                                         open my $outfh, '>', "slice$count.txt" or die "$!\n"; 
                                         print $outfh $block; 
                                         close $outfh; 
                  } 
}