#!/usr/bin/perl -w

$current = "fulltext.txt";

open(FILE, $current) or die "Could not open text";
while($line = <FILE>){
		$line =~ s/'//g;
		$line =~ s/,//g;
		$line =~ s/://g;
		$line =~ s/;//g;
		$line =~ s/[.]//g;
	$copyLine = $line;
print $copyLine;
}