Re^4: Printing Last Element of a line using perl memory?

here a way to avoid a temp array

  DB<100> $_=join " ",a..z
 => "a b c d e f g h i j k l m n o p q r s t u v w x y z"

  DB<101> $x = (split / /)[-1]
 => "z"
[download]

Cheers Rolf

Comment on Re^4: Printing Last Element of a line using perl memory? Download Code