use strict;
my $str = 'Text ),(1234, and more ,0123456789, here
),(39,\' \',1,\'01761472100\',\'@\',\'9 \',\'20\',1237213277,0,1237215419,\'\'),(40,\' \',3,\'01445731203\',\'@\',\' \',\'-\',\'22 2\',\'210410//816\',1237225423,0,1484651768,\'\'),(4270,\' /';
my $regex = qr/(?:\),\(\d{1,4},|,\d{10},)(*SKIP)(?!)|./p;
my $subst = '';
my $result = $str =~ s/$regex/$subst/rg;
print "The result of the substitution is' $result\n";
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html