$song = "nanananaaabatmannanananaaabatmannanananaaabatman";
@batmen = split /nananana+/, $song;