$string="He0Hello~~He2World~~";

while ($string=~m/He\d(\w+)~~/g) {
  print "$1\n";
}

##</code><code>##

$string=~m/He\d([^~]+)~~/g

##</code><code>##

$string=~m/He\d(.+?)~~/g