Select Code to Download

#updateWorkingRepositories.pl
use strict;
...
        my ($number, $repository) = $_ =~ /(\[[^>]*\]\s)(.*)/;
        if ($repository) {
            unless ($repository =~ /activestate/i) {

$repository` unless (/activestate/i); }        
...
        if ( $p->ping($domain) ) {
            print "$repository is alive.\n";

        } else {
            print "$repository is dead.\n";
...
    } 
    return $trimmed_domain;    
}