Parsing d'un fichier txt

#!/usr/bin/perl

use strict;
use warnings;

my $data = q(
ADD NSN:NID=0,SNTID=1003,SNNO="172.20.233.176",SNMSK="255.255.255.240";
ADD NSN:NID=0,SNTID=112,SNNO="10.33.0.0",SNMSK="255.255.192.0";


ADD ONF:OOFCN="27",RGLEXP="(sip:|tel:)(\\+421)([0-9]*)\;npdi\;rn=(\\+421BB00)(@sip.osk.com\;user=phone){0,1}",RPLEXP="sip:\\4\\***@***\;user=phone",PRIVACYFLAG=N,RESERVED1=0,RESERVED2=0,RESERVED3=0,RESERVED4=0;
);

# we turn $data into a file handle, 
# so that the while loop looks like yours
open my $FICH, '<', \$data;
while (<$FICH>) {
    chomp;
    if (/^([A-Z]+)\s([A-Z]+):/)
    {
        # we have the begining of the line
        print "Action = $1 - Object = $2\n";
        # process rest of line
        $_ = $';
        my @list = /([A-Z0-9]+)=(".+?"|.*?)[,;]/g;
        if (@list)
        {
            # splice it, so we can iterate throught every couple of values
            while (my ($p,$v) = splice(@list,0,2)) 
            {
                print "$p=$v\n";
            }
        } else
        {
            # error, we don't have the rest of the line
            # do something about this
        }
        print "-----------\n";
    } else
    {
        # we ignore blank lines of lines which beginning
        # does not match
    }
}

Action = ADD - Object = NSN
NID=0
SNTID=1003
SNNO="172.20.233.176"
SNMSK="255.255.255.240"
-----------
Action = ADD - Object = NSN
NID=0
SNTID=112
SNNO="10.33.0.0"
SNMSK="255.255.192.0"
-----------
Action = ADD - Object = ONF
OOFCN="27"
RGLEXP="(sip:|tel:)(\+421)([0-9]*)\;npdi\;rn=(\+421BB00)(@sip.osk.com\;user=phone){0,1}"
RPLEXP="sip:\4\***@***\;user=phone"
PRIVACYFLAG=N
RESERVED1=0
RESERVED2=0
RESERVED3=0
RESERVED4=0
-----------

$_ = substr($_, $+[0])