Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $nsdevices = "//ns$rpt:device";
my @devices = $xpc->findnodes($nsdevices);
say $_->getAttribute('timestamp') for @devices;

open file.xml ;
register-namespace rpt http://www.url.com/path/for/rpt ;
for //rpt:device echo @timestamp ;

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,