open (READFILE, "<readme.txt") || die "Couldn't open file: $!";
$buffer = "";

while(<READFILE>) {
	$commas++ while ($_ =~ m/,/g);
	$fullstops++ while ($_ =~ m/\./g);
	$openbracket++ while ($_ =~ m/[/g);
	$closedbracket++ while ($_ =~ m/]/g);
	$hypehns++ while ($_ =~ m/-/g);
}