#!/usr/bin/perl
use warnings;
use strict;

foreach my $line (<STDIN>){ 
	chomp $line;
	#remove extra words and braces.

}