На входе строка $str, примерно такого вида

и из неё надо получить хеш хешей вида :

не подскажете, как мне это осуществить?

невозможно.
у вас данные не совпадают

сложно.

perl -0777 -nle 'my %h = grep !/^$/, split "Number\\s+:\\s+(\\d+)"; foreach (values %h) { $_ = { map { split "\\s*:\\s*",$_,2 } split "\\n(?!\\s+)",$_ } }'

спасибо вам.
а почему так не работает?
и ещё, почему-то не смог поэлементно вывести 
message1, Number, 1
message2, Number, 2



Это сообщение отредактировал(а) dixoNICH - 13.5.2011, 20:16

у меня работает

# perl -MData::Dumper -0777 -nle 'my %h = grep !/^$/, split "Number\\s+:\\s+(\\d+)"; foreach (values %h) { $_ = { map { split "\\s*:\\s*",$_,2 } split "\\n(?!\\s+)",$_ } } print Dumper \%h'
Number : 2
Octets : 84947
Subject: ыфоыофыофоы
Date : Mon, 2 May 2011 22:30:48 +0600
From : Nikita  <[email protected]>
Message :
 ыфыфыфыфы
Number : 3
Octets : 79186
Subject: From
Date : Mon, 18 Apr 2011 23:39:02 +0600
From : Max Panachev <[email protected]>
Message :
 HELLO, DUDE!!
^D
$VAR1 = {
          '3' => {
                   'Octets' => '79186',
                   'Subject' => 'From',
                   'Message' => 'HELLO, DUDE!!',
                   'Date' => 'Mon, 18 Apr 2011 23:39:02 +0600',
                   'From' => 'Max Panachev <[email protected]>'
                 },
          '2' => {
                   'Octets' => '84947',
                   'Subject' => 'ыфоыофыофоы',
                   'Message' => 'ыфыфыфыфы',
                   'Date' => 'Mon, 2 May 2011 22:30:48 +0600',
                   'From' => 'Nikita  <[email protected]>'
                 }
        };
#

да, работает
огромное спасибо!

а ещё не подскажете, как мне засунуть в хеш такое

Message : hello world!
dasdsa
sad;a
> sasakska
>sklaskaska
>skaksak

чтобы было что-то вида 
%hash = ( 
        "message1"=> {"subject"=>"hello world", "from"=>"nikitka", "date" => "12.01.12", "Message" => "hello world!\ndasdsa\n> sasakska\n>sklaskaska\n>skaksak ", "Octets" => 1234}, 
        );