#!/usr/bin/perl
use strict;
use warnings;
use Benchmark qw(cmpthese);

my $count = -100;
cmpthese($count, {
    'Split' => sub {
        my $document;
        open(FILE, 'removed.xml') or die "Error [$!]\n"; 
        while (<FILE>) { $document .= $_ }
        my @lines = split('\|',$document);
	return @lines;
    },
    'IRS_while' => sub {
        local $/ = '|';
        my @lines;
        open(FILE, 'removed.xml') or die "Error [$!]\n"; 
        while (<FILE>) {
            chomp;
            push @lines, $_;            
        }
	return @lines;
    },
    'IRS_map' => sub {
        local $/ = '|';
        open(FILE, 'removed.xml') or die "Error [$!]\n"; 
        my @lines = map {chomp; $_} (<FILE>);
	return @lines;
    },
});