use Readonly;
Readonly my $FIELD_LAYOUT => 'A10 A20 A10'; # 10 ASCII characters, 20 ASCII characters, 10 ASCII characters;

foreach my $line (@file) {
  my ($program, $junk, $date) = unpack $FIELD_LAYOUT, $line;

  print "Program: $program\n";
  print "Date:    $date\n";
}