perl -s -e "$data='abcdef'; $data=~s#$r#qq{$s}#ee; print $data" -- -r=(abc) -s=$1hello