Select Code to Download

use strict;
use warnings;
...
{
    printf qq{%-9s - %s\n}, $str, ${ $ref };
}

1234      - 23
1a4       - a
...
5pq89     - pq
5ghijkl89 - gh
5stijkl89 - st