преобразование строки perl

[Satell]

А как следующую строку
Set-Cookie3: roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVm X2lu; expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/;

преобразовать к такому виду?

Set-Cookie3: roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVm X2lu; path="/"; domain=vasya.com; path_spec; expires="2007-01-13 11:13:05Z"; version=0

добавить это
domain=vasya.com; path_spec;
version=0

и поменять формат даты, кстате что значет эта буква Z на конце даты?

[genom--]

допусти у тебя это в переменной $stroka а твое domain=vasya.com; path_spec;
version=0 в переменной $z3

$z1=substr($stroka,0,70) # будет 'Set-Cookie3: roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVm X2lu;'

$z2=substr($stroka,71,118) # будет 'expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/;'

и потом соединяем $gotovo="$z1$z3$z2"