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

my $string="He0Hello~~He2W~orld~~He0Hello~~He2W~orld~~He0Hello~~He2W~orld~~He0Hello~~He2W~orld~~";
my $f;

sub invertedCharclass { while($string=~m/He\d([^~]+)~~/g){$f=$1} }

sub nonGreedy { while($string=~m/He\d(.+?)~~/g){$f=$1} }

cmpthese (-10,
    {
        '[^~]+' => \&invertedCharclass,
        '.+?' => \&nonGreedy,
    }
);


##</code><code>##

          Rate   .+? [^~]+
.+?   105088/s    --  -28%
[^~]+ 146676/s   40%    --