$song = "nanananaaabatmannanaaabatmannananananaaabatman";
@batmen = split /(na)*na+/, $song;