#!/usr/bin/perl -w

use strict;

$ARGV[0] = "www.perlmonks.org.txt";

open FH,  $ARGV[0] or die "Can`t open it: $!\n";

my @parsed = grep {
					s/[()]/ /igsx
				} <FH>;
				
close FH;

foreach (@parsed) {
	print $_, "\n";
}

#some testing outputs 
my  @vars=();
foreach (@parsed) {
	push @vars, split(" ", $_);
}

foreach (@vars) {
	print $_, "\n";
}