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