#!/usr/bin/env perl use strict; use warnings; my $VAR = "TEMP_VAR"; while () { s/\$VAR/$VAR/; print; } __DATA__ create variable $VAR alarm_object 0