$hostname =~ s/\r//g;

##</code><code>##

Launching [[ssh -q user@host 'sed -i "s#.*HOSTA#ssh-rsa AAAAB3NzaC1yc root@HOSTA#gI" /tmp/test.txt']] at ./key.pl line 81.