Select Code to Download

my $var1, $var2, $var3, $var4, $var5; #hopefully you'll be using some 
+meaningful names instead

...
$outputline = sprintf $format, $var1, $var2, $var3, $var4, $var5;

my $format = "%5s%5s%5s%5s%5s"."%5s%5s%5s%5s%5s"."%5s%5s%5s%5s%5s".
...
my $otherformat" = "%5s"x40;