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