my $amount = substr($source, -15);
        $amount =~ s/,//;