#!/usr/bin/perl use strict; use warnings; use 5.010; sub printf { my ( $format, $tag, @werte ) = @_; CORE::printf '<%s>'. $format . '', $tag, @werte, $tag; } my $test = 'foo %s bar'; ::printf $test,'div','und'; ::printf $test,'span','oder';