- or download this
if ($_=~m/^ATOM\s+\d+\s+\w+\s+\w+\s+\w+\d+\s+(\S+)\s+(\S+)\s+(\S+)/){
- or download this
open (IN, '6U9D.pdb.txt');
- or download this
my $filename = '6U9D.pdb.txt';
open (IN, $filename)
or die "Couldn't open '$filename': $!";
- or download this
%amino_acid_conversion = (
ALA=>'A',
...
ILE=>'I',
VAL=>'V'
);