gamera:~ 602> perl -MO=Deparse,-p,-q <<'EOT'
heredoc> my $page = "page_name.tmpl";
heredoc> my $mdl = $page =~ s/\.tmpl/\.pl/i;
heredoc> EOT 
(my $page = 'page_name.tmpl');
(my $mdl = ($page =~ s/\.tmpl/.pl/i));
- syntax OK