Select Code to Download

use feature 'say';
my $x = "a\tb\tc";
say for split ' ', $x;
say for split / /, $x;