for my $line (@cfile){
            $line =~ s/(\$\w+->{\w+})/$1||''/eeg;
            $line =~ s/(\$\w+)/$1||''/eeg;
            $text .= $line;
         }