use strict;
use warnings;

my $text1 = <<'END_TEXT';
2343/45/45/cal/ca-1.xml     2343/45/45/ca-1
6534/534/34/car/ca-5.xml     6534/534/34/ca-5
END_TEXT

my $text2 = <<'END_TEXT';
6534/534/34/ca-5
5676/435/734/da-1
END_TEXT

my %text2Entries;

# Build a hash table of text2 entries
open my $inFile, '<', \$text2 or die "Unable to read text2: $!\n";
while (<$inFile>) {
    chomp;
    ++$text2Entries{lc $_};
}
close $inFile;

# Read the text1 entries and print any that don't have a text2 entry
open $inFile, '<', \$text1 or die "Unable to read text1: $!\n";
while (my $line = <$inFile>) {

    my ($part1, $part2) = split /\s+/, $line;

    chomp $part2;
    next if ! exists $text2Entries{lc $part2};
    print $line;
}
close $inFile;


##</code><code>##

6534/534/34/car/ca-5.xml     6534/534/34/ca-5