my @simpsons = split(m{/},$_);