use File::Slurp;
my @lines = read_file( $filename );