=====================================================

    	  if  ( $line =~ /^Serial number:/ ) {
        	$serial_number = scalar <DATA> for 1; 
       		$serial_number =~ s/^\s+//;		  	  
        	$serial_number =~ s/\s+$//;		   
        	$serial_number =~ s/\R//g;
        	$serial_number = "'$serial_number'";
							
					
    }

=====================================================

##</code><code>##

======================================================
   	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 =~ s/\R//g;
        	   
        	print "$public_key_type\n";
    }
======================================================