Парсинг строки

[qwelps]

есть строка такого вида
1)16-Apr-2007 =?koi8-r?Q?=F7=CC=C1 =?koi8-r?Q?Re=3A_fsdfsdfs (1197 chars)

как распарить ее на такой вид?

1) | 16-Apr-2007 | =?koi8-r?Q?=F7=CC=C1 =?koi8-r?Q? | Re=3A_fsdfsdfs | (1197 chars)

[andymc]

$a[0] = \'\';
list($a[1], $s) = explode(\'=\', $s)
list($a[2], $s) = explode(\'Re=\', $s)
$a[2] = \'=\'.$a[2]
list($a[3], $s) = explode(\'(\', $s)
$a[3] = \'Re=\'.$a[3]
$a[4] = \'(\'.$a[4]

[ferryman]

На всех форумах эта бадяга..

[qwelps]

andymc спасибо