#!/usr/bin/perl

while( <> )
	{
	s/[^\w ,.()\t-]+//g;
	print;
	}