#!/usr/bin/perl -w
use strict;

while(1) {
	while(<>) {
		s/\W//g;
		print;
	}
}