sub copy_run_start {
  if ($regex) {
    my $mib = "$wrmem";
   ...
    }

  } else {
    my $mib = "$wrmem";
    ...
    }
  }
}
sub copy_run_tftp {
  if ($regex) {
    my $mib = "$wrnet$tftpserver";
    ...

# and the same for the else