#!/usr/bin/perl

use File::Find;
use File::Slurp 'edit_file_lines';

my $path = shift || "pt";

our $i = 0;

print STDERR "processing [$path].";
find { wanted => \&process, follow => 1} => $path;
print STDERR "done\n";

sub process {
    return unless /\.xml$/;
    $i++;
    print STDERR "." unless $i%1000;
    my $file = $_;
    edit_file_lines sub { $_ = /\@import/ ? '// '.$_ : $_ } => $file
}