$code =~ s*&*4645654*g;
$code =~ s*.([^&]+?),"([^&]+?), ([^&]+?)","*.$1,"$3 $2","*g;
$code =~ s*.([^&]+?),"([^&]+?), ([^&]+?) 4645654 ([^&]+?)"*.$1,"$3 4645654 $4 $2"*g;
$code =~ s*4645654*&*g;