PDB
PDB::Line
PDB::Line::Atom

##</code><code>##

($self->{'TYPE'},$self->{'data'}) = unpack("A6 A74", $self->{'string'});
    if($self->{'TYPE'} eq 'ATOM'){
	$self->{'object'} = new PDB::Line::Atom($self->{'data'});
    }

##</code><code>##

sub new {
	my $class = shift;
	my $self = {};

	$self->{'AN'} = '';
	$self->{'A'} = '';
	$self->{'AL'} = '';
	$self->{'R'} = '';
	$self->{'RN'} = '';
	$self->{'IC'} = '';
	$self->{'X'} = '';
	$self->{'Y'} = '';
	$self->{'Z'} = '';
	$self->{'OC'} = '';
	$self->{'TE'} = '';
	$self->{'SI'} = '';
	$self->{'E'} = '';
	$self->{'C'} = '';
	

	bless $self, $class;

	$self->parse(shift);

	return $self;
}

sub parse{
    my $self=shift;
    ($self->{'AN'}) = unpack("A5", $_[0]);
    print $self->{'AN'}."\n";
}

##</code><code>##

ATOM    242  CE2 PHE A  16       9.011  14.465 -20.603  1.00  0.00           C
##</code><code>##

  242  CE2 PHE A  16       9.011  14.465 -20.603  1.00  0.00           C