10 ARP requests sent
        1461 ARP replies sent
        52437 ARP requests received
        6 ARP replies received
        52443 ARP packets received
        302 total packets dropped due to no ARP entry
        7 ARP entrys timed out
        0 Duplicate IPs seen

$map =
{
	'([0-9]+).*request.*sent'=>'out_request',
	'([0-9]+).*repl.*sent'=>'out_reply',
	'([0-9]+).*request.*received'=>'inp_request',
	'([0-9]+).*repl.*received'=>'inp_reply',
	'([0-9]+).*packet.*received'=>'inp_total',
	'([0-9]+).*packet.*dropped.*no ARP entr'=>'noarp',
	'([0-9]+).*entr.*timed out'=>'timeout',
	'([0-9]+).*Duplicate IPs seen.'=>'ipdup',
};
#код в цикле
#$row - текущая строка текста
my $value = $row;
print "$row\n";
foreach my $re (keys %{$map})
{
	$value =~ /$re/;
	if ($1)
	{
		$value = $1;
		print "  - field $map->{$re} = $value\n";
		last;
	}
}

        0 ARP requests sent
        0 ARP replies sent
        13 ARP requests received
  - field inp_request = 13
        0 ARP replies received
        13 ARP packets received
  - field inp_total = 13
        0 total packets dropped due to no ARP entry
        0 ARP entrys timed out
        0 Duplicate IPs seen