Figured it out...

Just needed to add a line to remove CR's and to remove any spaces in the value $one.
As follows:

 $one =~ s/\s//g;
[download]

Happy Holidays