$seen =~ s/'/''/g;
$interpolated = $seen? "'$seen'" : 'NULL';
$dbh->do("INSERT INTO foo (bar) VALUES ($interpolated)");