Select Code to Download

$string =~ m/(?:(?=.*?X)X|(?!.*?X))(\S+)/;

$string1="abcX123";
$string2="abc123";
...

$string2 =~ m/(?:(?=.*?X)X|(?!.*?X))(\S+)/;
print "$1\n";

123
abc123