sub splitter { local $_ = shift; split /(?