my @data;
$/ = '';
while (<>){
    push @data, $_;
}