Select Code to Download

while (<DATA>) {
    chomp;
...
    s/[< ]+//g;
    print "MATCH => $copy\n" if $_ eq 'Sensor30';
}