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