Select Code to Download

my @query = ('red', 'blue', 'white');

my $line = "That is a blue wall";

foreach my $query(@query){
  next if $query eq '';
        print "I found: $query" if $line =~ /\Q$query/;
     }