$public_key_type = scalar for 1; print ">$public_key_type<\n"; $public_key_type =~ s/^\s+//; print ">$public_key_type<\n"; $public_key_type =~ s/\s+$//; print ">$public_key_type<\n"; $public_key_type =~ s/\R//g; print ">$public_key_type<\n";