Check to see if $rt has a carriage return character at the end of it. Perhaps add something like $rt =~ s/\r//g; to strip any out.