Select Code to Download

$pkg_host_base = ($p->host =~ m{($pkg_host_mask)}) [0];

$ perl -Mstrict -Mwarnings -E '
    my $host = q{a.b.c};
...
b.c
b.c
b.c