#!/usr/bin/perl
# splits.pl
use strict;
use warnings;
use diagnostics;
while (<>) { # loop through each line in file
next if ($. == 1); # skip first line (contains business segment code)
next if ($. == 2); # skip second line (contains transaction amount text)
my @fields = split('\t',$_); # split fields for line into an array
}
IyEvdXNyL2Jpbi9wZXJsCiMgc3BsaXRzLnBsCgp1c2Ugc3RyaWN0Owp1c2Ugd2FybmluZ3M7CnVzZSBkaWFnbm9zdGljczsKCndoaWxlICg8PikgeyAjIGxvb3AgdGhyb3VnaCBlYWNoIGxpbmUgaW4gZmlsZQoKICAgIG5leHQgaWYgKCQuID09IDEpOyAjIHNraXAgZmlyc3QgbGluZSAoY29udGFpbnMgYnVzaW5lc3Mgc2VnbWVudCBjb2RlKQogICAgbmV4dCBpZiAoJC4gPT0gMik7ICMgc2tpcCBzZWNvbmQgbGluZSAoY29udGFpbnMgdHJhbnNhY3Rpb24gYW1vdW50IHRleHQpCgogICAgbXkgQGZpZWxkcyA9IHNwbGl0KCdcdCcsJF8pOyAgIyBzcGxpdCBmaWVsZHMgZm9yIGxpbmUgaW50byBhbiBhcnJheSAgICAgCgogICAgcHJpbnQgc2NhbGFyKGdyZXAgJF8sIEBmaWVsZHMpLCAiXG4iOyAKCn0=
ICAgIDQgICBHICAgSSAgIE0gICBOICAgVSAgIFgKICAgIFRyYW5zYWN0aW9uIEFtb3VudCAgVHJhbnNhY3Rpb24gQW1vdW50ICBUcmFuc2FjdGlvbiBBbW91bnQgIFRyYW5zYWN0aW9uIEFtb3VudCAgVHJhbnNhY3Rpb24gQW1vdW50ICBUcmFuc2FjdGlvbiBBbW91bnQgIFRyYW5zYWN0aW9uIEFtb3VudAowMDAwLTEzLUkyMSAgICAgICAgICAgICA2MDAgICAgICAgICAKMDAwMS04Vi0wMzRCTEEgICAgICAgICAgICAgIDIsMTcyICAgMiwxNzIgICAgICAgCjAwMDEtOFYtMTkxR1lHICAgICAgICAgICAgICAgICAgMTMsMTI1ICAgICAgNCwzNzUKMDAwMS05Vy1HSDVCMkEgIC0yLDk2Ny4wOSAgICAgICAyLDk2Ny4wOSAgICAyNS4wMCA=
4 G I M N U X
Transaction Amount Transaction Amount Transaction Amount Transaction Amount Transaction Amount Transaction Amount Transaction Amount
0000-13-I21 600
0001-8V-034BLA 2,172 2,172
0001-8V-191GYG 13,125 4,375
0001-9W-GH5B2A -2,967.09 2,967.09 25.00