Select Code to Download

  if (/[\x20]{5}\(base 16\)[\t]{2}/) {
...
  if ($_ =~ m/([\d]+\.[\d]+\.[\d]+\.[\d]+).*([\w]{4})\.([\w]{4})\.([\w
+]{4})/i) {

  if (/\x20{5}\(base 16\)\t{2}/) {
...
  if ($_ =~ m/(\d+\.\d+\.\d+\.\d+).*(\w{4})\.(\w{4})\.(\w{4})/i) {

open(INPUT, $ARGV[0]) || die "Cannot do eet! $!";      # Takes the inp
+ut file name on the command line and builds an array.
while (<INPUT>) {                                    # This is the ARP
+ Cache file created from a copy/paste of a routers 
...
    $hash{$temp} = $1;
  }
}