Select Code to Download

 
#!/usr/bin/perl 
use strict;
...
}

__DATA__

<BEGINFILE>
<SUBBEGIN
...
     CF=CFNRC-ALL-PROV-NONE-YES-NO-NONE-YES-65535-NO-NO-NO-NO-NO-NO-NO
+-NO-NO-NO;
     CF=CFD-TS10-ACT-91436903000-YES-YES-25-YES-65535-YES-YES-NO-NO-NO
+-YES-YES-YES-YES-NO;
<SUBEND

sub output_record {
  my $rec = shift;
...
  print join $sep,$MSISDN,@CF;
  print "\n";
}