$rec->{filename} $rec->{IPAdress} $foo ##

##

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

##

##

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

##

##

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