i'm trying - nothing prints. i've been working on this all day, and it's always the same - i either get all the data in the whole file, or nothing. it never see's just one record.

open(FILE, "$lfilename") or &dienice;
$/ = undef; # Slurp mode
$file = (<FILE>); # Grab the whole file into $file

while (my($record) =~ m/Begin Product(.*?)End Product/gs) {

       print $record;
}
[download]