Select Code to Download

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

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