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