open(my $fh, '<', 'input') or die "open input: $!";
# Slurp file contents into a string.
my $contents = do { local $/; <$fh> };
# Convert into an array.
my @lines = split /^/, $contents;