$Data::Dumper::Useqq = 1;

##</code><code>##

$temp[1] =~ s/\r//;