#!/usr/bin/perl

print("Please enter filename: ");
$filename = <STDIN>;
chomp ($filename);
if ($filename=~m/^[_a-zA-Z][^.]{1,7}\.txt$/)
open (READFILE, $filename)|| die "Failed to open $filename: $!";

my $filecontents;
{
    local undef $/;
    $filecontents = <READFILE>;
}

while (<READFILE>)

my @characters = ($filecontents =~m/\b/g);
my @words = ($filecontents =~m/\b\s/g);
my $wordcount = scalar @words;
my @paragraph =($
my @sentences = ($filecontents=~m/\.$/);


$CharCount{ $characters }++;
$wordcount{ $wordcount)++;
etc




close <READFILE>;

open(OUT, ">data1.txt") || die "data1.txt not open: $!";

output data here

close(OUT);