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

__DATA__
CALI123456-09
FLOR1234567-01