use strict;
use warnings;

my $firstString='Trap';
my $secondString='hair';

open my $text, "<test.txt" or die "Dead";
while(<$text>){
        print if (m/($firstString|$secondString)/i)
}