Mine

my $pathToFile =  "eingabe\.json";
if (open(my $FILE, "<", $pathToFile)) {
   while (my $line = <$FILE>) {
     $json .= $line unless ($line =~ /^\s*#/);
   }
   close($FILE);
   my $conf = jsonToObj($json);
}