Select Code to Download

my( $item_num, $event, $sep, $day )= $entry =~ m{^ (\d+) [\.|\s] \s+ (
+.*?) \s+(-|\N{EN DASH}|\N{EM DASH})\s+ (.*?) $}x;

example entries
123 Festival - Sunday # doesn't work
456. Pool Party - Tuesday # works