@foostuffs = split /(?:tar)?bar/, $string;

##</code><code>##

  for (@foostuffs) { s/^foo// }