$foo='abchelloxyz';
($bar=$foo)=~s/abc(\w+)xyz/\1/;