use strict;
use warnings;

my $file = $ARGV[0]; 

open( my $fh, '<', $file ) or die "Can't open $file: $!";
    while ( my $line = <$fh> ) {
        if ( $line =~ /X /i ) {
            print $line;
        }
    }
    close $fh;