$ ./7.word.pl 
abs is /home/hogan/Documents/hogan/7.word.pl
path1 is /home/hogan/Documents/hogan
path2 is /home/hogan/Documents/hogan/upwords
This script will build the above path2. Proceed? (y|n)y
pattern is a?a?c?d?r?s?t?
in main aa aas act acta acts ad ads ar arc arcs ars art arts as at cad cads car carat carats card cards cars cart carts casa cast cat cats dart darts data drat drats rad rads ras rat rats sac sacra sad sard sat scad scar scart scat star ta tad tads tar tars tas trad tsar
 woohoo =======
with underpat unchanged fxxxxexx
with underpat changed fxxxxxxx