my $search = 'D7*D';
$search =~ /*/_/g;
my ($id, $new) = $dbh->selectrow_array("SELECT rowid, new FROM table WHERE old LIKE ?", undef, $search);