Select Code to Download

<xml>
<file>$rec->{filename}</filename>
<ipv4>$rec->{IPAdress}</filename>
<something>$foo</something>
</xml>

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;
         }