my $data = do { local $/; <DATA> };
@array = split 'on something', $data;