my $command_line = 'perl -pi.bak -e s/' . $search . '(?=,)/' . $replace . '/g; CombineDie1Die2.txt';
#                                           Add this ^^^^^