~dau~.file_name.
var $cut = call source $file=/mieuta/$getname
var $cut = call substr $val=$cut;$start=0;$length=500;
var $list = call str_replace $subject=$list;$search=~dau~$getname~cuoi~;$replace=$rename;
if $start > 25
goto @batdau
endif
print $list
endfunction
