$str =~ s/char\((\d+)\) ?/chr($1)/eg;