@array[0..3] = ( $buffer =~ /^(\d+) (\d+) (\d+) (\d+)/ )
   or die "Buffer didn't match pattern";