#! /tools/perl/5.8.8/linux/bin/perl
use strict;
use warnings;

while ( <> )
{
#if
my ( $set ) = m/^\s+(\S+)/; #get the first word 
my ( $name,$value ) = m/-name (\S+) (\S+)/;  #get the name and value
my ( $mode ) = m/mode == (\S+)\"/; #get the mode

print "$mode $name $set $value\n";
}