C:\>perl -Mstrict -Mwarnings -le "print 'defined!' if defined( (split /\|/, '2|3|||||', -1)[4]);"
defined!