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