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