Nejsem kolega, ktery pomohl, ale kdyz uz uvedu, ze jsem vyresil, aspon uvedu jak.
Perl
$ARGV[0] =~ m/^([a-z0-9]{1,}\.){11}(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\s+=\s+INTEGER:\s?(\d{1,})$/ or die ("Error input - $ARGV[0]");
printf ("MAC: %02X:%02X:%02X:%02X:%02X:%02X\tPort: %d\n", int ($2), int ($3), int ($4), int ($5), int ($6), int ($7), int ($8));