use Data:::Dumper;

{
   local $Data::Dumper::Useqq = 1;
   print(Dumper($var));
}

##</code><code>##

$line =~ s/\s+\z//;