##

#!/usr/bin/perl 
use strict;
use warnings;
use feature 'say';

my $HSSIN='D:\testproject\HSS-export-test-run-small.txt';
my $ofile = 'D:\testproject\HSS-output.txt';
open (INFILE, $HSSIN) or die "Can't open input file";
open (OUTFILE,"> $ofile" ) or die "Cant open file"; 
my $add;
my $MSISDN;

my $line; 
my $CFline;
my $CBBOACline;
my $CBBOICline;

 sub callForwardingsCF()
    
    {
    	
 if (/\t*CF=(CFU-TS10-ACT-(NONE|\d+))/  && /\t*CF=(CFB-TS10-ACT-(NONE|\d+))/)

  {
      	
	   say "this case is found here .....";
	      
   
  } 
   	
} # end sub callForwardingsCFD

 

while () {
	if (/