use strict; use File::Slurp; my $text = read_file($file);