Shell Programming and Scripting

#!/usr/bin/perl
use Time::Local 'timelocal';
use POSIX;

my $year, $month, $day;
my $sd, $ed;
$sd=1167573600;
$ed=1577800800;

while (my $ln = <STDIN>) {
  if($ln =~ /([^;]+;){4,}/) {
    my @values = split(/\;/, $ln);
    $values[3] = $values[3] .
       ";" . strftime("%Y%m%d", localtime(rand()*($d-$sd)+$sd)) .
       ";" . strftime("%Y%m%d", localtime(rand()*($d-$sd)+$sd)) .
       ";" . strftime("%Y%m%d", localtime(rand()*($d-$sd)+$sd));
    $values[5]= $values[5] . ";" . (rand()>0.5)?"Y":"N";
    print $values[0];
    for($i=1 ; $i < scalar(@values); $i++ ) {
        printf ";$values[$i]"
    }
  } else {
      print $ln;
  }
}