my @substrings=split( /Perls\sin\sParty/, $string);
for my $substring (@substrings) {
if ($substring=~/([0-9]{2})-([0-9]{2})-([0-9]{4})\s$/) {
my $date;
$date="$1\.$2\.$3";
print "There is a Perl Party on $date\n";}