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