#!/usr/bin/perl

$bla="thisthatthos";
$bla=~m/((\w)\w)/i;
$file = lc($1).".txt";
$directory = lc($2);
    

print "$bla\t$file\t$directory\n";

if ( -d $directory ){
   print "$directory is a directory\n";
}
#open (DICTIONARY_DATA,"aspell dump master |");
#open (WRITE_DICTIONARY, ">dictionary.txt");
#while (<DICTIONARY_DATA>){
#    print WRITE_DICTIONARY $_;
#}
#close (DICTIONARY_DATA);
#close (WRITE_DICTIONARY);

#open (MYNET, "netstat -i -n |")
#while (<MYNET>){ 
#    $this="$_";
#    print "$this\n";
#} 
#close (NET);

#open (WRITE_DICTIONARY, ">dictionary.txt");
#`aspell dump master` ;
#close (WRITE_DICTIONARY);