my $input = "foodogbar";
my ($thing) = $input =~ /foo(.*?)bar/;