String Perl

@a = ("%s%s%s%s", "P", "e", "r", "l");
print sprintf(@a);