Rather than reading the file line-by-line and so having each logical record spread over multiple array elements; read teh file record by record:

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

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

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