Select Code to Download

#! /usr/bin/perl -w
open AA, '<',"A.txt"    or die "open: $!";
...
close (BB);
}
close(AA);

A.txt
1a6m_-.ent.dssp
...
b1bx4_A.ent.dssp
b1bx7_-.ent.dssp
b1bxy_A.ent.dssp

B.out
b1a6m_-.ent  79K  83E 127.119
b1a6m_-.ent  80G  84A 136.545
b1b5e_A.ent 123R 127M 132.48
b1bx4_A.ent  61H  65S 145.4

 
 @temp1=split(/\s+/,$line1);

 @temp1=split(/ +/,$line1);