my $string = '----9---a---28.07.2007---23:13:46---rest---id=345677';
my $regexp = '----(\d+)---\w+---(\d+.\d+.\d+)---(\d+:\d+:\d+)---rest---id=(\d+)';
my ($count, $date, $time, $id);