>perl -wMstrict -le
"my $s = 'foo//bar//baz';
 my @species = split qq{//}, $s;
 printf qq{'$_' } for @species;
"
'foo' 'bar' 'baz'