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;
}