D:\Downloads>perl -w tmp.pl
Use of uninitialized value in quotemeta at tmp.pl line 9, <DATA> line 1.
CHILD: Topology/IPClassA/Device/log_ratio
CHILD: Topology/IPClassA/Device/poll_interval
CHILD: Topology/IPClassA/Device = 2/poll_interval
CHILD: Topology/IPClassA/Device = 2/is_managed
CHILD: Topology/IPClassA/Device = 2/Port/ifPhysAddress
CHILD: Topology/IPClassA/Device = 2/Port/poll_interval
CHILD: Topology/IPClassC/Device/poll_interval
CHILD: Location