while (<FILE>)
{
	my $line = $_;

##</code><code>##

while (my $line = <FILE>)
{

##</code><code>##

	my @vsize = split (' ', trim ($pieces[2]));
	my @vbits = split (' ', trim ($pieces[3]));
	my $video_size = trim (shift @vsize);
	my $video_bits = trim (shift @vbits);

##</code><code>##

	my ( $video_size ) = split ' ', $pieces[ 2 ];
	my ( $video_bits ) = split ' ', $pieces[ 3 ]