my $arp = `/usr/sbin/arp -a`;
my $mac = "aa.bb.cc.dd.ee.ff";

if($arp =~ m/\(([\d\.]+)\) at $mac/) {
  print "$1\n";
}