If($str =~ m/(pattern1)(pattern2)/gi)
  {
  $str = &function($1);
  $var1 = &function($2);
  }