ls | perl -lne '$o = $_; s/DOTX/DOT_TEST/; $n = $_; warn "***$o, $n"'