#!/usr/bin/perl
use strict;
use warnings;
use Benchmark;
$| = 1;
my $clean="kljansdljzxnkxnlkxjnxlkjnxlkxxxlkjnlkjnlkxjnkxjnlkxjnlxkjnlkxxluhasiuuhxkxhkxhxxxxlkjsndifnhskxhkxhx";
timethese
(
    10000000,
    {
            'with plus' => sub { &plus},
            'without plus' => sub { &no_plus },
    }
);

sub no_plus
	{
	my $temp=$clean;
	$temp=~s/x//g;
	}
sub plus
	{
	my $temp=$clean;
	$temp=~s/x+//g;
	}