Select Code to Download

perl -i -l -p -e ' s /(.*)/Number => ${1}/s; '  test.txt

use File::Slurp qw/ edit_file /;
edit_file { s /(.*)/Number => ${1}/s; } 'test.txt';