@array=split(/-/,$value);
$pdbid=$array[0];
$from=$array[1];
$to=$array[2];
$chainid=$array[3];
if($chainid eq "_")
{
$chainid=" ";
}
$menu1=$array[4];
$menu2=$array[5];
$menu3=$array[6];
@array=();

##</code><code>##

($pdbid, $from, $to, $chainid, $menu1, $menu2, $menu3) = split(/-/,$value);
if($chainid eq "_") {
  $chainid=" ";
}

##</code><code>##

        print <<"*END*";
select :$chainid
wireframe on
wireframe 70
select :$chainid
spacefill on
select :$chainid
spacefill 0.55
select $from-$to:$chainid
wireframe on
wireframe 70
select $from-$to:$chainid
spacefill on
select $from-$to:$chainid
spacefill 0.55
select $from-$to:$chainid
color green
*END*