new perl script + new cleaned text
new perl script + new cleaned text