#! /usr/bin/perl
use strict;
use warnings;
use 5.010;
use utf8;
use Data::Dumper;


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

say Dumper \@u;

__DATA__
€€€