var $list =
@batdau
assign $end=call strrpos $haystack=$list;$needle=[cuoi]; $offset=0
assign $start=call strrpos $haystack=$list;$needle=[dau]; $offset=0
var $getname = call substr $val=$list;$start=($start+5);$length=($end-$start-5);
var $rename = call source $file=/data/$getname
assign $endt =call strrpos $haystack=$rename;$needle=[/ten]; $offset=0
assign $startt=call strrpos $haystack=$rename;$needle=[ten]; $offset=0
var $rename = call substr $val=$rename;$start=($startt+5);$length=($endt-$startt-5);
var $list = call str_replace $subject=$list;$search=[dau]$getname[cuoi];$replace=;
if $start > 25
goto @batdau
endif
print $list