use strict;
use warnings;

my $string = "\n\nThis is a string";
my $start_time = time();
my $times = 9999999999999;
for (my $i = 0; $i == $times; $i++){
	my $result = reverse($string);
	$result = reverse(chomp($string));
}
my $end_time = time();

print "Double reverse = " . ($end_time - $start_time) . " seconds\n";

$start_time = time();
for (my $i = 0; $i == $times; $i++){
	my $result = $string;
	$result =~ s/\n//;
}
$end_time = time();

print "regex = " . ($end_time - $start_time) . " seconds";