c:\@Work\Perl\monks>perl -wMstrict -le
"my @names = qw(A AB ABC ABCD ABCDE);
 ;;
 for my $name (@names) {
   printf qq{%8s -> }, qq{'$name'};
   my $s =
     sprintf length($name) > 3 ? '%s' : ' %-3s', $name
     ;
   print qq{'$s'};
   }
"
     'A' -> ' A  '
    'AB' -> ' AB '
   'ABC' -> ' ABC'
  'ABCD' -> 'ABCD'
 'ABCDE' -> 'ABCDE'