$page_template =~ s/\$(lc_|uc_)(\w+)\$/{
     my $tmp = $input->param($2);
     ($1 eq 'lc')?lc($tmp):
     ($1 eq 'uc')?uc($tmp):$tmp;
}/eg;