my @delim = qw(: :: / // \| \|\| \s+);
mySplit \@delim, $str1;
mySplit \@delim, $str2, 4;