Select Code to Download

use XML::Twig;

...
    map { candidate_generator($_, @pair) } @next_city;

map { $_->print } @next_to_next;

my @next_to_next = 
    grep { $_->first_child->text ne $city and 
           $_->last_child->text ne $city }
    map { candidate_generator($_, @pair) } @next_city;

$_->delete for (@adj);

...

map { $_->print } @next_to_next;

if ($file !~ /p(\d{6,7})_(\w+)_(\w+).zip/) {
  then die "$file violates the companies syntax for patch filenames";
}

System::Logic::valid_patchfile(File => $file, DieOnErr => 1);