Instead of chopping only if it's there, your could do

    $variable =~ s/\0\z//;
[download]

assuming that ^@ is the visual 'control character' representation of the zero byte that you get in some editors/tools...