undef $/;
<FH>; #FH - дескриптор, из которого читаешь
@cookies=m/document\.cookie='(.+?)'/g;
После этого в массиве @cookies будут лежать выбранные подстроки. Ну а вбить их в файл в нужном формате, надеюсь, уже сам сможешь.
ЗЫ. Сам я этот код не проверял, так что за 100%-ю правильность не ручаюсь. Если мало ли будет вопить об ошибках, попробуй читать не в $_ (переменная по умолчанию), а в какую-нибудь конкретную. Я навскидку не уверен, что @arr=m// корректно отработает, но вроде должно быть нормально. Если не пойдет - замени на @arr=($temp=~...).
нужно выдрать из него строчки roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVmX2lu; expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/;
и
fav=1168600385; expires=Sat, 12 Jan 2008 11:13:05 GMT; path=/;
и записать в такой файл cookies.txt с таким содержанием
#LWP-Cookies-1.0
Set-Cookie3: roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVmX2lu; expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/;
Set-Cookie3: fav=1168600385; expires=Sat, 12 Jan 2008 11:13:05 GMT; path=/;
undef $/;
<FH>; #FH - дескриптор, из которого читаешь
@cookies=m/document\.cookie='(.+?)'/g;
После этого в массиве @cookies будут лежать выбранные подстроки. Ну а вбить их в файл в нужном формате, надеюсь, уже сам сможешь.
ЗЫ. Сам я этот код не проверял, так что за 100%-ю правильность не ручаюсь. Если мало ли будет вопить об ошибках, попробуй читать не в $_ (переменная по умолчанию), а в какую-нибудь конкретную. Я навскидку не уверен, что @arr=m// корректно отработает, но вроде должно быть нормально. Если не пойдет - замени на @arr=($temp=~...).