eval join(';', map $_.'@array', /pop/g) for
    q{low heat: pop, pop.. pop-pop, pop-pop.. pop! pop! pop, pop, pop..},
    q{turning up the heat: fffffffpop!! poppoppoppoppop!!!};