while ( my ($vid,$tvid) = $sth1->fetchrow_array() ) {
    $tvid =~ tr/ \`\~\!\@\#\$\%\^\&\*\(\)\-\=\+\[\{\]\}\|\;\:\'\"\,\<\.\>\?\\\//_/d;
    $sth2->execute($tvid,$vid)
        or die $DBI::errstr;
}