Select Code to Download

<?xml version="1.0" encoding="ISO-8859-1"?>
<monk value="PM">
...
   </val>
  </vals>
</monk>

#!perlenv -w

...
        print $japh . "\n";
    }
}

if ( $string[0] =~ /xml/ ) {
    foreach $string (@string) {
...
    }
    }
}