# read trans barcode $primer = Util::Util::trim(Util::Util::fileDecode($transFile)); # set transaction folder path my $transPath = $wDir . "plsTrans/" . $primer . "/tmp/."; system("mv $transFile $transPath"); if(-d $transPath){ system("mv $transFile $transPath"); }