I think you're asking how to do this:

chomp( my @deposits = split /\s+/, lc <STDIN> );
print "$_\n" for @deposits;
[download]

If so, I'm sure you can adapt that first line to fit within your script.

When starting a new thread that relates to previous threads, please be sure to link, and if necessary, clarify how this question is a different topic from the previous (related) threads:

• Push,pop, and splice!
• Deleting a word in a file!