in reply to Re: Strange Log
in thread Strange Log

thanks, it worked, but i had to change it a bit to:
my $text; while (<TEXT>) { if ($_ =~ /^.* src=([^>]*)>.*$/ixg) { $text .= "$1\n"; } }
when i ran your example i got a syntax error near "/) "