my ($amount) = $line =~ /([^\t]+)$/;