Select Code to Download

  * 2 FETCH (UID 2 FLAGS (\Answered \Seen) INTERNALDATE "05-Jun-2008 0
+7:19:01 +1000" RFC822.SIZE 5144 BODYSTRUCTURE ("text" "plain" ("chars
+et" "ISO-8859-1") NIL NIL "7bit" 2053 46 NIL ("inline" NIL) NIL NIL))

  "UID"           => "2",
  "FLAGS"         => "\Answered \Seen",
  "INTERNALDATE"  => "05-Jun-2008 07:19:01 +1000",
  "RFC822.SIZE"   => "5144",
  "BODYSTRUCTURE" => "text" "plain" ("charset" "ISO-8859-1") NIL NIL "
+7bit" 2053 46 NIL ("inline" NIL) NIL NIL",

  (?:
    (?{ local $d=0 }) # set depth to 0
...
      )
    )                 # end capture
  )