my $s ;
  s/$search/$subst/g and $s = $1 and s/\$1/$s/g ;