my @substrings = do {
    local $/ = \10;
    open my $fh, '<', \$string;
    <$fh>
};