Maybe this then:

use strict;
use warnings;
my $input = "char(123)+char(107)+char(112)+char(42)";
my $output .= chr( $_ ) foreach $input =~ m/(\d+)/g;
print "$output\n";
[download]