use strict;
use warnings;
use MCE::Flow chunk_size => 1;

mce_flow sub {
    chomp;
    printf("%s processing %s\n", $$, $_);

    if (/(\w.+\w\d+.+net),(\w+)/) {
       my $host = $1;
       my $type = $2;
       printf "%s connecting to %s\n", $$, $host;
    }

    printf "%s finished %s\n", $$, $_;
}, [(<DATA>)];


__DATA__
server1.net,value
server2.net,value
server3.net,value
server4.net,value