in reply to Counting to add space to a string

chomp, m/([^A-Z])/, print $`, 'X' x (14 - length), $+, $', "\n" while 
+<DATA>;

__DATA__
CALI123456-09
FLOR1234567-01

[download]

In Section Seekers of Perl Wisdom