castaway

#!/usr/bin/perl
use warnings;
use strict;
use Data::ICal;
use Text::LevenshteinXS 'distance';

my $act_schedule = Data::ICal->new(filename => 'timetable.ics')
  or die "Can't parse timetable.ics: $!";

my $target = "Things I learned from users";