Select Code to Download

$old_db     = "emdb1";
$new_db     = "kuku"; 
...
$string     =~ s/([^,]*,)([^,]*,)([^,]*,)([^,]*,)/$str_regexp/ee; 

print "$string\n";