The reason your code is failing, in general, is because your logic is faulty. You think your code is saying "print the contents of the array if there's a line with '0.00' at offset 118", but your code is NOT saying that.

Your code is saying:

for each line in between 'NAME' and 'ADJ TO TOTALS:', do this {
add this line to the @data array
now go through each element of the @data array, and do this { # <--+ WHY?!
if this line has 1235114182 in it, do this {
put this line at the end of $lines
if $lines has '0.00' at offset 118, do this {
print the @data array
}
empty the @data array, $lines, etc.
}
}
}

When putting a smiley right before a closing parenthesis, do you:

Use two parentheses: (Like this: :) )
Use one parenthesis: (Like this: :)
Reverse direction of the smiley: (Like this: (: )
Use angle/square brackets instead of parentheses
Use C-style commenting to set the smiley off from the closing parenthesis
Make the smiley a dunce: (:>
I disapprove of emoticons
Other