Select Code to Download

#!/usr/bin/perl

...
foreach (@lines) {
        printf "%20s", $_;
}

$ ./ex05-02.pl
Enter some strings:
...
              asdfa
        asdfasdfasd
               asdf