if($line =~ /code="(.*)"/i) 
         { 
            my $collected = $1;  
         };