Select Code to Download

#!/usr/bin/perl -w
use 5.010;
...
        print "$1 mapped to $temp for company ", $oui{substr $temp, 0,
+ 6}, "\n";
    }
}

(my $temp = uc($2)) =~ tr/.//d;