Select Code to Download

...
foreach (@dat)
...
  print DATA $_;
}
close(DATA);

perl -pi.bak -e 's/number/NEWWORD/;' file.txt