Help for this page
foreach (@dat) { ... print DATA $_; } close(DATA);
perl -pi.bak -e 's/number/NEWWORD/;' file.txt