my $w = 5;
my $p = 3;
my $s = "abcdefg";
printf "<%*.*s>", $w,$p,$s; 

##</code><code>##

my $w = 5;
my $p = 3;
my $s = "abcdefg"; 
printf "<%$w.${p}s>\n", $s;