my $template = "Hi %foo, I have a %bar.\n";

print fill($template, foo => 'mickey', bar => 'robot');

sub fill {
    my $template = shift;
    my %params = @_;
    $template =~ s/%([a-z]+)/$params{$1}/g;
    return $template;
}