foreach(@code){
  if (m/^<ticket .*state="(.*)") {
     $state = $1; }
  if (m/version="/){
     my @vers = split(/="(.*)"/);
     $version_a = $version[1];
     $version_a =~ s/(^[A-Za-z]+)|\.[A-Za-z]+$//;
     if ($version_a ne '') {
        my @vers = split(/\./, $version_a);
        ####  Now I compare the 2 versions........ 
        }
      }
      ### Now I process the tasks
      if (m/<task/){
         ## do some stuff
       }
       print;
       print "\n";
}