"; while($p=~m!.*?a name=(.*?)!igs){ my $x=$1; do { $d=$1; $t=$2; $u=$3; $n=$4; $n=~s!border="?0?"?!border=0 width=100!s; ($do,$posle) = @{[$n=~m!^(.*?)<(.*?)$!s]}; if(length ($do) >= 100) { $do=substr($do,0,100)." >>" } print qq~$d $t
$do <$posle

\n~; } if $x=~m!(.*?)
(.*?).*?

(.*?)