Okay! My Attempt:

$time=$16;    # Time Sample
[download]

There is a gigantic regexp before that with at least 16 brackets '(...)'. $time gets what's found in the 16th.

  @_1= split "\,",$16;
[download]

That value is split at the kommas (is it? Shouldn't it be /,/?)

  if($#_1 eq 0){      
  $time = int ($time);
}
[download]

If there was no komma, $time becomes the integer value of itself.

              
  if($#_1 eq 1){   
  $time=$_1[0];   
  $time=~ s/\,//g;
  $time*=1000;
}
[download]

If there was a komma, $time becomes 1000 times the value of the value just left of the first komma. $time=~ s/\,//g; should be unneccessary as there can't be any komma in $_1[0].

  if($#_1 eq 2){   $time=1000;}
  if($#_1 eq 3){$time=1000;}
[download]

If there was any other numper of kommas, $time becomes 1000.

Don't ask me what this is good for!