UNIX for Dummies Questions & Answers

echo '12FC2525MZLP8266900216
12FC2525MZLP8266900216
12FC2525NBLP8276900216
12FC2525NBLP8276900216' | 
perl -e '
  %h = (
    0 => " ", 
    1 => " ", 
    2 => " ",
    3 => " ", 
    7 => " ", 
    9 => " ", 
    11 => " ", 
    14 => " ", 
    17 => " ", 
    19 => " ", 
  ); 
  while (<STDIN>) {
    chomp; 
    @a = split(//); 
    for(my $i=0;$i<=scalar(@a);$i++){ 
      print "$a[$i]";
      print $h{$i};
    }
    print "\n";
  }
'

$ perl -ne '@chl = unpack("A1A1A1A1A4A2A2A3A3A2A2", $_); $, = " "; $\ = "\n";  print(@chl);' RegionalData