perl -le '$s = foobar; $search=qr/(foo)(bar)/; $replace="\$1-\$2"; $s =~ s/$search/eval $replace/e; print $s'