#!/usr/bin/perl -wl

    use strict;

    my $str = 'The ASCII chars 64 and 35';
    print $str;

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

    print $str;

    __END__
    Prints:
    The ASCII chars 64 and 35
    The ASCII chars @ and #