perl -i~ -0777p sub.pl *.cstol