Select Code to Download

$ perl -wE 'my $x = q[X{123}X]; say $x; $x =~ /([{]123[}])/; say $1'
X{123}X
{123}