Select Code to Download

my $D = new bpoStub;
.
...
    .
    .
}

use DBI;
.
...
    # do stuff which modifies condition and perhaps 
    # the insertion values
}

if ( $Type{$DBCol} =~ /numeric|float|int|money/ ) {...}

if ( $Type{$DBCol} =~ /^numeric|float|int|money/o ) {...}