Help for this page
#!/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;