while ( $amount2 =~ / / ){
    $amount2 =~ s/ //g;
}    
if ( ($amount2) =~  /_(\d+)\./) {   
    print BAD_OUTPUT "Amount field cannot contain alpha characters :";  
    print BAD_OUTPUT $_,"\n";  
    next;  
}