my $txt = '1,2';
$txt=~ s/(\d+)\,(\d+)/$1\Q0\E,$2/;