Select Code to Download

$ perl -E 'say("X\n\t99\n\tY" =~ /(?<=X).*\d+(?=Y)/s ? 1 : 0)'
0

$ perl -E 'say("X\n\t99\n\tY" =~ /(?<=X).*\d+.*(?=Y)/s ? 1 : 0)'
1