>>76
@x = m/pattern/;
print ((grep {defined $_} @x)[-2]);