next if substr($fld0,-1,1) eq "X";

##</code><code>##

next if $fld0 =~ /X$/;

##</code><code>##

$        Match the end of the line (or before newline at the end)