Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
    }
    next;
}

C:\>927370.pl
At ln 15, |CAL2345-06| has 10 characters
At ln 21, |CAL2X345-06| has 11 characters  <!-- first insert, X in wro
+ng position
...
At ln 15, |FLOR1234567-01| has 14 characters <!-- 14 in original array

C:\>