use strict;
use warnings;

use Test::More tests => 1;

my $in   = 'abcfooHellobarxyz';
my $want = 'Hello';

my ($have) = ($in =~ /foo(.*)bar/);
is $have, $want, "Extracted $want";