my %variables = ( ... );
...;
while (<FILE>) {
 s/\$(\w+)/$variables{$1}/eg;
 print;
}