split() my __DATA__

Run Settings
LanguagePerl
Language Version
Run Command
#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.
Editor Settings
Theme
Key bindings
Full width
Lines