en passant:

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