Select Code to Download

unless ( open( FILE, "name_of_file" ) ) {
    die "Could not open file for reading\n";
}

while (<FILE>) {
    if ($_ =~ /^(maintenance_mode)\s([\w,=]*)$/) {

$var =~ /whatever/;

$_ =~ /whatever/;

/whatever/;

for ($foo) {
    s/^"//;
...
}
# or also:
# s/^"//, s/"$//, s/\W+/-/ for $foo;

    $hash{$1} = $2;

    }
}