#!/usr/bin/perl 
use strict; 
use warnings; 

my ($dt, $account, $baldue);

while (<DATA>) { 
    chomp; 
    ($dt, $account, $baldue) = split /\t/;   # shorter, more standard. was:   split("\t"); 
    print "$dt | $account | $baldue \n"; 
} 

=head OUTPUT

4-11-13 273.13 273.13
20130512 11.17 36.14
09222013 2,479.00 6,481.16

=cut

__DATA__
4-11-13	273.13	273.13
20130512	11.17	36.14
09222013	2,479.00	6,481.16