perl -wMstrict -e "my @ra = split /(c)/, 'abcde'; print '$1 ', defined $1 ? 'defined' : 'undefined', qq( @ra)" $1 undefined ab c de