Select Code to Download

if ($str =~ m/(pattern1)(pattern2)/gi) {
    my ($arg1, $arg2) = ($1, $2);
    $str = function($arg1);
    $var1 = function($arg2);
}