...
    my $port = '<no port found>';
    if ($line =~/(port=([0-9]+))/i) {
        $port= $2;
    };