my @u = do { 
    local $/ = \2;
    <DATA>;
};

print Dumper \@u;

use utf8;
__DATA__
€€€