use warnings;
use strict;
use Benchmark;
my $data="
this
is
a string
example";


my @data;

my $count = 100000;
timethese($count, 
{ 
	'map_split' => sub {@data=map { $_.="\n" } split (/\n/, $data);}, 
	'simple_split' => sub { @data = split "\n",$data; },
	'regex' => sub  { @data= ( $data =~ /(.*?\n)/g );}, 
}
);
__END__
Benchmark: timing 100000 iterations of map_split, regex, simple_split...
 map_split:  2 wallclock secs ( 2.04 usr +  0.00 sys =  2.04 CPU) @ 48947.63/s (n=100000)
     regex:  2 wallclock secs ( 1.24 usr +  0.00 sys =  1.24 CPU) @ 80515.30/s (n=100000)
simple_split:  1 wallclock secs ( 0.75 usr +  0.00 sys =  0.75 CPU) @ 132978.72/s (n=100000)


##</code><code>##

$data = '';
Benchmark: timing 1000000 iterations of map_split, regex, simple_split...
 map_split:  0 wallclock secs ( 0.99 usr +  0.00 sys =  0.99 CPU) @ 1009081.74/s (n=1000000)
     regex:  1 wallclock secs ( 0.54 usr +  0.00 sys =  0.54 CPU) @ 1848428.84/s (n=1000000)
simple_split:  0 wallclock secs ( 0.94 usr +  0.00 sys =  0.94 CPU) @ 1062699.26/s (n=1000000)