Looks awesome, but I get errors: it does not like the /r, but does fine with /e except the output is all 11111. 
# perl -c foobar
Bareword found where operator expected at foobar line 12, near "s/\s+/
+$letter++ . ' '/er"
syntax error at foobar line 12, near "s/\s+/$letter++ . ' '/er "
foobar had compilation errors.
root@facs04ap [/var/adm/scripts]
# perl -v

This is perl, v5.8.8 built for aix-thread-multi

[download]

code from u 

use strict;
use warnings;
use List::MoreUtils qw/natatime/;

my $it = natatime 5, <DATA>;

while ( my @lines = $it->() ) {
        my $letter = 'A';
        my $acctNum = do { $lines[0] =~ /\s+(\d+)\s+(\d+)/; $1 . $2 };
        push @lines, " acctnum=$acctNum";

        print for map { s/\s+/$letter++ . ' '/er } @lines;
        print "\n";
}

__DATA__
    50######    8 Z  Axxx ,xxxxxxx           19793.43 02/02/2012 06/08
+/2012      32989.05
    037######    S  JOYCE xxxxxxS                  .00 06/06/xxxx     
+                                          0
    0             7  1471 xxxx xxxx x #101              .00 02/08/2012
+ 06/15/2012                                    NOV
    0             U  MILWAUKEE, WI xxxxx         32989.05 02/08/2012  
+                                             3
    3#####        MILWAUKEE WI                     .00            5321
+4                                         12
    50#####    8 Z  Axxx ,Nxxxxx                  75.00 05/27/2012 06/
+05/2012       1845.00
    03######3    E  Nxxxx Axxxx                     .00 09/xx/xxxx 06/
+05/2012   MYT#####
    7#######    S  156xxx xxxxx BLVD                .00 06/06/2012 06/
+14/2012   MYT########                      NOV
    0             C  TAYLOR,MI 48180              1845.00 05/27/2012  
+                      3                      3
    37######     S  TAYLOR MI                        .00            48
+180                  3                      12
    50#####    9 Z  ALxxxx Rxxxx ,SUSxxx        75.00 05/05/2012 05/15
+/2012       2045.00
    0000000000    E  SUSE Axxxxx Rxxxx             .00 03/xx/xxxx 05/1
+5/2012   AJT9#######
    31#######       44xxx xxx AVE                     .00 05/16/2012 0
+6/15/2012   AJT92######                      NOV
    0             C  LINCOLN PARK,MI xxxxx        2045.00 05/05/2012  
+                      1                      3
    0             S  LINCOLN PARK MI                  .00            4
+8146                  1                      12

[download]

In reply to Re^2: raw data formatting by teamassociated
in thread raw data formatting by teamassociated

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.