Select Code to Download

$ cd my_data/
$ ls
1.english.txt  upwords.10
...
qinqennial
qinqennium
$

$ wc -l *
 172819 1.english.txt
 125817 upwords.10
 298636 total
$

$ ./7.word.pl 
abs is /home/hogan/Documents/hogan/7.word.pl
path1 is /home/hogan/Documents/hogan
...
 woohoo =======
with underpat unchanged fxxxxexx
with underpat changed fxxxxxxx

#!/usr/bin/perl

use strict;    
...

  return @extensions;
}