First version

and.pl

@@ -0,0 +1,36 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use 5.010;
+
+
+
+MAIN: {
+    my @words = qw( apple table ^here );
+    my @and_parts = map { "(?=.*$_)" } @words;
+
+    my $match_and_re = join( '', @and_parts );
+    $match_and_re = qr/$match_and_re/;
+
+    my $hl_re = join( '|', @words );
+    $hl_re = qr/($hl_re)/;
+    say $hl_re;
+
+    while ( my $line = <DATA> ) {
+        chomp $line;
+        if ( $line =~ /$match_and_re/ ) {
+            say $line;
+            $line =~ s/$hl_re/[$1]/g;
+            say $line;
+        }
+    }
+}
+
+
+__DATA__
+here and there is apple
+there and here is table
+here is apple and table
+table and apple and penny
+table only