Select Code to Download

File1 
1 H 35
1 C 22
...
1  MET  CA  22
2  ASP  HA  20
2  ASP  CA  30

 #!/usr/bin/perl

use strict;
...
 close SHIFTS;
 exit;