in reply to Superfluous subpatterns in regex alternations.

my $t = "my LISTS are always long"; $t =~ /(LIST|OF|LISTS) /; print $1; #LISTS
my $t = "my LISTS are always long"; $t =~ /((LIST|OF)S)/; print $1; #LISTS