perl ~/plscript/trim_seq_by_regex.1.pl \
  --in_file=INPUT_FILE \
  --out_dir=OUTPUT_DIR \
  --regex="AAACT[CT]AAA[GT]GAATTGACGG(\w+)$" \
  --verbose=1