>>183
まぁ同じ事だが。

sub MY_DATA_SIZE() {
　　open MYSELF, '<' . $0 or die $!;
　　binmode MYSELF;
　　local $/ = "__DATA_\x5F\x0D\x0A"; # 適宜変更
　　<MYSELF>;
　　(-s MYSELF) - tell MYSELF;
}

read DATA, my $data, MY_DATA_SIZE;