my $text;


    while (<TEXT>) {


        if ($_ =~ /^.* src=([^>]*)>.*$/ixg)    {


            $text .= "$1\n";


        }





}