C:\>perl -E "use 5.016; use strict; use warnings; 
 my $str='abXcd{X}efXyz'; 
 my @matches; 
 while ($str =~ /[^{](X)[^}]/g) {push @matches, $1;} 
 say @matches;"
XX