use strict;
use warnings;

my $public_key_type;

while (my $line = <DATA>){
    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";