7 find -name '*.IN[O1]' -exec perl -e '
12 $d =~ s/\.IN([O1])$//;
13 my $overwrite= ($1 eq 'O');
15 open F, "< $f" or die "$f $!";
16 open G, "> $g" or die "$g $!";
19 exists($ENV{$1}) ? $ENV{$1} : die "$1 ?"
27 rename $g, $d or die "$g $d $!";
32 die "$g $d $!" unless $!==&EEXIST;