$foo = "abchelloxyz";
$foo =~ s/abc([\w]+)xyz/$1/;