Select Code to Download

use strict;
use warnings;
...
my @arry2 = ('string'=~ m/foo/, 'second');
# no value stored for failed match.
is $arry2[1], $arry1[1];

not ok 1
#   Failed test at tryit2.pl line 10
#          got: undef
#     expected: 'second'
# Looks like you failed 1 test of 1.