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

##</code><code>##

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