Re^2: list comprehension

[nmerriweather]

thats it. thanks!

[Not_a_Number]

Or even (TMTOWTDI):

my ( $y, $m, $d ) = unpack 'A4xA2xA2', $str;