thanks, it worked, but i had to change it a bit to:

my $text;
    while (<TEXT>) {
        if ($_ =~ /^.* src=([^>]*)>.*$/ixg)    {
            $text .= "$1\n";
        }

}
[download]

when i ran your example i got a syntax error near "/) "