Select Code to Download

#! perl -slw
use strict;
...
__FILE_2__
A B C
B D E

[ 8:24:45.48] C:\test>1109868.pl
A seq1 20 B seq1 40 C seq1 25
B seq2 25 D seq2 30 E seq2 45
B seq2 80 D seq2 30 E seq2 45