if ( my @vals = /<regex>/ ) {
    $dbh->do( $sql, undef, @vals )
        or die " ... ";
}