Edit: Oops, toolic beat me to the punch!

#!/usr/bin/env perl
use strict;
use warnings;

my $VAR = "TEMP_VAR";

while (<DATA>) {
    s/\$VAR/$VAR/;
    print;
}

__DATA__
create variable $VAR alarm_object 0
[download]