If the string is the same, then the result would be the same.

What does the following output?

use Data::Dumper;
local $Data::Dumper::Useqq = 1;
print(Dumper($gene_name));
[download]

You probably have a trailing newline that needs to be chomped off.