use Benchmark;
my $junk = 'The quick brown fox Jumped over the lazy dog';
timethese(5000000,
{
	'split'	=> '$junk = join \' \',split $junk;',
	'regex1'	=> '$junk =~ tr/\s//;',
	'regex2'	=> '$junk =~ s/\s//g;',
});