Select Code to Download

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

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