Help for this page

Select Code to Download

Select or download this

my $string = "foo / bar & etc";
my @parts = split(/ (\&|\/) /,$string);
print join("\n",@parts);

Select or download this

my $string = "foo    bar    etc";
my @parts = split(/\t/,$string);
print join("\n",@parts);