my $string = "char(123)+char(107)+char(112)+char(42)";
my @characters = map{ chr $_ } $string =~ m/(\d+)/g;
print "$_\n" foreach @characters;