#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my $test = '<%s>foo %s bar</%s>';

printf $test,'div','und','div';
printf $test,'span','oder','span';