$fld0 = "abcX";
$fld0 = "abcX\n";

##</code><code>##

if (substr($fld0, -1, 1) eq 'X') { next }