use strict;
use warnings;

my $line;
while (<DATA>) {
    $line = $1 if /^\s*MSISDN=(\d+);/;
    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";

__DATA__
<BEGINFILE>
<SUBBEGIN
    IMSI=232191400010332;
    MSISDN=436906901235;
    CF=CFU-ALL-PROV-NONE-YES-NO-NONE-YES-65535-NO-NO-NO-NO-NO-NO-NO-NO-NO-NO;
    CF=CFB-ALL-PROV-NONE-YES-YES-NONE-YES-65535-NO-NO-NO-NO-NO-NO-NO-NO-NO-NO;
    CF=CFNRY-ALL-PROV-NONE-YES-YES-NONE-YES-65535-NO-NO-NO-NO-NO-NO-NO-NO-NO-NO;
    CF=CFNRC-ALL-PROV-NONE-YES-NO-NONE-YES-65535-NO-NO-NO-NO-NO-NO-NO-NO-NO-NO;
        CF=CFD-TS10-ACT-91496903000-YES-YES-25-YES-65535-YES-YES-NO-NO-NO-YES-YES-YES-YES-NO;

<SUBEND