use warnings;
use strict;

my $VAR = 'TEMP_VAR';
while (<DATA>) {
    s/\$VAR\b/$VAR/g;
    print;
}

__DATA__
create variable $VAR alarm_object 0
[download]

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks is a proud member of the The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.