use Data::Dumper;$string = "One Two Three\n";my @array3 = split(" ",$string);print(Dumper(@array3)); print $string;
Standard input is empty
$VAR1 = 'One'; $VAR2 = 'Two'; $VAR3 = 'Three'; One Two Three
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!