while ( $amount2 =~ / / ){
     $amount2 =~ s/ //g;
 }