#!/usr/bin/perl 
use strict; 
use warnings; 
my $input = do { local $/; <DATA> }; 
my @input = split /(?=\d+ Page)/, $input;
foreach (0 .. $#input) { 
    say "Record $_ is: $input[$_]"; 
}