open my $fh, '<', 'theDumpFile' or die $!;

my @code;
{
    local $/ = '</ticket>';
    @code = <$fh>;
}
close $fh;

for my $record ( @code ) {
    my @linesOfRecord = split "\n", $record;
    ...
}