======================================================
   		   if  ( $line =~ /^Public Key Type:/ ) {
        	   $public_key_type = scalar <DATA> for 1;
        	   $public_key_type  =~ s/^\s+//;
        	   $public_key_type =~ s/\s+$//;
        	   $public_key_type = "$public_key_type";
        	   $public_key_type =~ s/\R//g;
        	   
        	  print "$public_key_type\n";
    }
======================================================