use warnings;

##</code><code>##

print "Search for what: ";
chomp(my $search = <STDIN>);
@words = split(/ /, $search);
open(DATA, "data.txt") or die "error opening file $!";
@data = <DATA>;
foreach $data(@data) {
  foreach $word(@words) {
    if ($data =~ /$word/) {
      print $data;
    }
  }
}