#!/usr/bin/perl -w

use strict;
use warnings;

open (FILE,"$ARGV[0]") or die;
open (FILE1,"$ARGV[1]") or die;
my  @line = <FILE> ;
my $line1 = <FILE1>;
foreach my $x(@line)
    {
        if ($x =~ $line1)
        {
           print $x,"\n";
        }
    }

close (FILE);
close (FILE1);