Or:
@row = map [ /\d/g ], <$lines>; [download]
In reply to Re^3: Uninitialized warnings trouble by jwkrahn in thread Uninitialized warnings trouble by Anonymous Monk