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

Update: Some people can type really fast :-)