open $fh, $ARGV[0] or die "File $ARGV[0] not found!\n";
while ($line = <$fh>){
	while($line =~ /\s*((((([A-Za-z]|[0-9])*((\'*|\-*)[A-Za-z]*))\s*\.*\!*\"*\(*\)*\,*\:*\s*)*(([A-Za-z]|[0-9])*))(\.|\?|\!))/g){
		print "$1\n";