Stuff

#!/usr/bin/perl
$input = "fosed.xml";
$start = 1;
open(FILE, $input);
$i = $start;
while(<FILE>) {
  $linea = $_;
  if (/\<node(.*)file/) {
    $num = sprintf( "%03d", $i);
    m/file="(.*?)"/;
    $file = $1;
    $file =~ m/(.*)\\(.*)/;
    $file2 = $2;
    #$linea =~ s/label="(.*?)"/label="$file2"/;
    $linea =~ s/file="(.*?)"/file="$num.exe"/;
    print "$linea";
    $filename = "files/$num.txt";
    open(NEWFILE, ">$filename");
    print NEWFILE "\"..\\docs\\$file\"\n";
    close NEWFILE;
    ++$i;
  } else {
    print "$linea";
  }
}
close FILE;