Whenever you have a problem like this, don't just "print".

use Data::Dumper;
local $Data::Dumper::Useqq = 1;
print Dumper $type;
[download]

Now you will see all unprintable characters and you can continue programming instead of blindly guessing =)