Select Code to Download

$ perl -E 'my @x = (0..4); my @y = (0,1); my @z; @z = @x if $x[1] == $
+y[1] || $x[3] == $y[1]; say "|@z|"'
|0 1 2 3 4|
$ perl -E 'my @x = (10..14); my @y = (0,1); my @z; @z = @x if $x[1] ==
+ $y[1] || $x[3] == $y[1]; say "|@z|"'
||

$ perl -E 'my @x = (0..4); my @y = (0,1); my @z; @z = @x if $x[1] =~ /
+$y[1]/ || $x[3] =~ /$y[1]/; say "|@z|"'
|0 1 2 3 4|
$ perl -E 'my @x = (10..14); my @y = (0,1); my @z; @z = @x if $x[1] =~
+ /$y[1]/ || $x[3] =~ /$y[1]/; say "|@z|"'
|10 11 12 13 14|