Since it's tab delimited, you could also use split to extract the amount field:

my $amt = ((split(/\t/,$data))[2]);
[download]