I am trying to prompt user to type input and replace certain attribute in a file with the input. This is not working. abc.txt contain line "NA" and I wish to replace with "user\_input". Any help? Thanks

```
use strict;
use warnings;

my $x = "<process>NA</process>";
print "Please specify process used\n";
my $process = <STDIN>;
chomp $process;

open(XML, "<", "abc.txt") or die "Couldn't open file, $!";
while(<XML>){

    s/<process>NA</process>/<process>$process</process>/g;  
}

```