my $template = 'bar %s foo foo %s bar bar BAAAR!';
my $out = sprintf $template, 'Guybrush', 'Purcell';