my $filename = "";
my $outputfile = "";

##</code><code>##

my $filename = <STDIN>;
chop ($filename);

##</code><code>##

while (<INFILE>) #read the input file
{
while ( /(\w['\w-]*)/g ){  #if we have a "word";
}