#!/usr/bin/perl
use strict;
use warnings;


my $line ="line: label1=N,label2=N,label3=N,label4=NNNNNNNNNNN,label5=N,label6=WWWN";

my %values = $line =~ /(\w+)=(\w+)/g;

foreach my $label (sort keys %values)
{
    print "$label $values{$label}\n";
}

__END__
label1 N
label2 N
label3 N
label4 NNNNNNNNNNN
label5 N
label6 WWWN