perl -e 'for(@ARGV) { my $o = $_; s/DOTX/DOT_TEST/ && warn "*** $o, $_" }' *