Select Code to Download

use warnings;
use strict;
...
    return $replace;

    }

c:\@Work\Perl\monks\Keystone>perl ask_to_replace_1.pl
string is now 'Three, Four, One, Two, xFive9, six, Seven'
...
no: enter new string: se7en
new string is 'Uno, Dos, One, Tres, xFive9, six, se7en'
done!