my ( $code ) = ( $line =~ /code="([^"]+)"/ );