undef$/;for my$f{open IN,$f xor<IN>;s/(x)\1{2}/'g'x3/iegm;s/alpha/uc$1/egm;open OUT
=>'>',($f eq'file1')?'sysbacks/file1':(($f eq'file2')?'alpha/file2':(($f eq 'file3'
)?'gamma/blue':(($f=~/^file[45]$/)?'gamma/green':'/dev/null')))or die;print OUT $_;
}@ARGV;