Select Code to Download

my($version, $int) = /<xml\sversion="((\d+)\.?\d*)"/;

my($version) = /<xml\sversion="(\d+\.?\d*)"/;

my($version) = /<xml\sversion="(\d+)\.?\d*"/;

#!/usr/bin/perl -w
foreach  (
...
        print "No match in $_\n";
    }
}

Match '24.0' in <xml version= "24.0" IP="1.1.2.3" baseVersion="beta_3"
+ lastUpdate="22-Apr-06" >
Match '24.0' in <xml IP="1.1.2.3" baseVersion="beta_3" version= "24.0"
+ lastUpdate="22-Apr-06" >
Match '24.0' in <xml IP='1.1.2.3' baseVersion="beta_3" lastUpdate="22-
+Apr-06" version= '24.0'>