#!/usr/bin/perl
use Benchmark;
my $string="X" x 102400;
timethese(100, {
             'split' => sub { 
                 for (split(//,$string)) {}; 
             },
             'unpack' => sub { 
                 for (unpack("C*",$string)) {}; 
             },
             'regex' => sub { 
                while($string =~ /./sg) {} 
             },
             'substr' => sub { 
               for(my $i=0;$i<length($string);$i++){
                     substr($string,$i,1);
               }
             },
});