my $line;
while (<DATA>) {
    if (/^\s*MSISDN=(\d+);/) {
        print "$line\n" if defined $line;
        $line = $1 ;
    }
    if (/\s*CF=([\w-]+?-(?:NONE|\d+))/) {
        my $add = $1;
        $add =~ s{(\d+)$}{1/1/1/$1};
        $add =~ s{NONE}{1/1/1/0};       
        $line .=  ",$add";
    }
}
print "$line\n";