in reply to Replace method

( my $mdl = $page ) =~ s/\.tmpl$/.pl/i;

[download]
Boris

In Section Seekers of Perl Wisdom