Select Code to Download

#!perl -l
use XML::Twig;
...
}
sub thrsub{
}

<?xml version="1.0" encoding="UTF-8"?>
<blah version="2.1" xmlns="blah.xsd">
...
  </managedObject>
</someData>
</blah>

perl -p0e "s/<managedObject.*?>.*<\/managedObject>/$& x 100/se" testin
+small.xml > testin.xml

use XML::Twig;

...
    print "END Time:\t".sprintf("%02d",$hour2).":".sprintf("%02d",$min
+2).":".sprintf("%02d",$sec2);###To print the current time
    print "\t$day2-".++$month2. "-".($yr192+1900)."\n"; ####To print d
+ate format as expected    
}