#!/usr/bin/perl -w

$xf   = "~/OUTPUT" #enter file name location here <-
$num  =1000 #enter number of iterations here <-
$tnum =20    #enter number of pdbs necessary <-
$lab  = "BRO" #enter label for output <-
    open (XF, $xf) or die "no $xf exists!!";

while (my $line = <XF>){           #reads file, takes out erroneous data,
    if($line = m/TIMESTEP/){       #saves each chunk of 2703 line to
	$line = "";                #one array slot in superchunk
	@file = scalar(@trans);
	@trans[1] = @superchunk;}
    else if($line = m/ATOM/){
	@file = $line;}
}
    $num / $tnum = $div;
    for($i=1;$i<=$tnum;++$i){ 
	open (OU, "> $lab_$i.pdb") or die "File would not open!!";);
        print OU (@superchunk[$i*$div]);
        close OU
}                                      #prints every 20th 2703 line chunk to
                                       #file, different file for each chunk
                                       #
close XF