while (<@ARGV>) {
	my $arg = shift @ARGV;
	@options = split(/: /,$arg);
	print "XXXXXXXX\t", $options[$_], "\tXXXXXXXX";
}