while (<>) {
    my $m = /X/ .. /^\s*$/;
    print if $m && $m !~ /E0$/;
}