есть такой текст

<script language="javascript" type="text/javascript">
<!--
document.cookie='roton=MXwwfDExNjg2MDAzODV8MTE2ODYwMDM4NXwwO25vcmVmX2lu; expires=Sat, 13 Jan 2007 11:13:05 GMT; path=/;';
document.cookie='fav=1168600385; expires=Sat, 12 Jan 2008 11:13:05 GMT; path=/;';
//-->
</script>

нужно выдрать из него строчки 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=/;

как это сделать на Perl?

• поиск и копирование подстроки из текста Perl,Serge, 10:18 , 13-Янв-07
  • поиск и копирование подстроки из текста Perl,Satell, 22:31 , 15-Янв-07
    • поиск и копирование подстроки из текста Perl,Аноним, 18:46 , 18-Янв-07

#!/usr/bin/perl

open (ST, "< ./text") or die ;

while (<ST>) {
print "$2 \n" if /document.cookie=(['])(.*?)\1/ ;
}

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

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

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

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

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

perldoc perlre