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

use vars qw($rows $cols);
no strict 'refs';
my $text;

my ($rows, $cols) = (24, 80);
my $text = q(I am $rows high and $cols long);
$text =~ s/\$(\w+)/${$1}/g;
print $text;