chomp( my @deposits = split /\s+/, lc ); print "$_\n" for @deposits;