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

[igelkott]

Might just be style but I'd make the trailing whitespace removal a bit more specific ("\W" to "\s"):

m/(\w+)\s*$/;