use strict;
use warnings;
use Benchmark qw (:all);

my $txt = "a" x 100;

sub seperate {
	split //, $txt;
}

sub replace {
    $txt =~ s/a/b/g;
}

my $result = timethese(100000, {'seperate' => \&seperate, 'replace' => \&replace});