if ( @chunks > 1 && $chunks[-2] =~ s/$comment$// ) { pop @chunks; }