Select Code to Download

#!/usr/bin/perl
use strict;
...
    
    print $line1, ',', (split ',', $line2)[-1];
}

WL,BL,Die1,Die 2
WL0,BL0,1708,1708
...
WL0,BL2,1708,1708
WL0,BL3,1931,1931
WL0,BL4,1931,1708