split() my __DATA__
#print [split, <DATA>]->[1];
my $ref = [ split, <DATA> ];
print $ref->[0];
print $ref->[2], $ref->[1];
__DATA__
Yes this is data ready to
be
mined.INFO
#print [split, <DATA>]->[1];
my $ref = [ split, <DATA> ];
print $ref->[0];
print $ref->[2], $ref->[1];
__DATA__
Yes this is data ready to
be
mined.