Ah, then you need what's called a zero-width negative look-behind.

$str =~ s/(?<!\\)\\$/\\\\/;  # match a backslash at the EOL
                             # that isn't preceded by a backslash
[download]

See perlre for more stuff like this.