in reply to undef and "x" operator

The usual approach is $hic = ( split(/\*/) )[5];

Replies are listed 'Best First'.
Re^2: undef and "x" operator
by Skeeve (Parson) on Aug 09, 2006 at 21:51 UTC
    Or $hic = ( split(/\*/,$_,7) )[5]; to split not more than necessary.
    Update: Thanks to lidden for showing my mistake (had a 6 instead of 7).
    s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
    +.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e
[reply]
[d/l]
[select]
      s/6/7/

      or the sixth field will contain too much.
[reply]
[d/l]

In Section Seekers of Perl Wisdom