sub process_file {
   my ($fh, $re) = @_;
   while (<$fh>) {
      next unless /$re/;
      # do stuff with captured data
   }
}

##</code><code>##

my $account_number = $1;
my $deposit_amount = $2;