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

##</code><code>##

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