#!/Perl/bin/perl -w

use IO::File;
use strict;

my $file = new IO::File;
my $new_file = new IO::File;

$file->open("<memgrp.dat");
$new_file->open(">>new_mem_grp.dat");

while(!$file->eof)
{
	my $line = $file->getline;
	$line =~ s/}//g;
	$new_file->write($line,length($line));
}

$new_file->close;
$file->close;