Select Code to Download

./myscript.pl -h peanut 01 13 44 18 27

#!/usr/bin/perl -w

...
@hosts = grep {!/^\d{2}$/} @hosts;

print join(' ', @hosts) . "\n";