Select Code to Download

my $regex=qr/^Device(\s)+Configuration/;
...
my $result = $functions{$regex}->($var2);

my $result = undef;
for (keys %functions) {
...
    last;
  }
}