if ($line ne /\<.+\>/) {
 $line =~ s/<<VARIABLE>>/$variable/; 
}