Help for this page

Select Code to Download

Select or download this

open HANDLE, $file
    or die "Couldn't open $file: $!\n";
print "Please Enter a word from $file: ";
...
#    $x =~ s/\b$word_1\b/$word_2/g;
# But it's your call....
print HANDLE $x;