use File::Slurp 'edit_file'; edit_file { s!.+?!enabled!sg } 'inputfile';