$string = "stuff, Hello the name of this site is perlmonks.org, goodbye, stuff";
($data) = $string =~ /Hello(.*)goodbye/;
print "$data\n";