# try this
$page_template =~ s/\$(\w+)\$^\w/$input->param($1)/eg;
$page_template =~ s/\$(\w+)\$lc_/$input->param(lc($1))/eg;
$page_template =~ s/\$(\w+)\$uc_/$input->param(uc($1))/eg;