my $file = 'eginv.txt';

{
local( $/ ) ;
open( my $fh, $file ) or die "Oops file dead\n";
my $TEXT = <$fh>;
my $IPADDR=();
my $MACADDR=();
my $RUN=();
my $OSDETL=();
my $HOP=();
my @MACADR=();
my @IPADR=();

(@IPADR,@MACADR) = $TEXT =~ /(192\.168\.1\.[\d]+)...([A-Fa-f0-9]{2}:[A-Fa-f0-9]{2}:[A-Fa-f0-9]{2}:[A-Fa-f0-9]{2}:[A-Fa-f0-9]{2}:[A-Fa-f0-9]{2})/gs;


   foreach my $ial (@IPADR) {
   print "$ial\n";
         }

        #  foreach my $mal (@MACADR) {
        #  print "$mal\n";
        #         }

}