#!/usr/bin/perl

use strict;
use warnings;
use autodie qw( open close );
use English qw( -no_match_vars );

# Report pages are separated by FORM FEED control characters
local $INPUT_RECORD_SEPARATOR = "\f";

open my $report, '<', 'QISC001';

while (my $page = <$report>) {
    # Parse and transform each report page here...
}

close $report;

exit 0;