If the data is at fixed columns, then the problem cries out for the use of unpack.

my @cols = unpack("A5 (x2 A10)*", $line);

# $cols[0] gets first 5 characters.
# $cols[1] gets next 10 characters (after skipping 2).
# $cols[2] gets next 10 characters (after skipping 2).
# $cols[3] gets next 10 characters (after skipping 2).
# etc...
[download]