#!/usr/bin/perl -wpi.bak
BEGIN {my $men}
###while (<>) {
	s/Symposium,\s*/Symposium, 6 Sep 2019, /;
	if(s/\s+(Mentor.+)}/}/) {
		$men=$1;
		#print STDERR "Saw: $men\n";
	}
	if(m|\\medskip|) {
		print '\medskip'."\n";
		print '\textsf{\color{black}\huge \sl '.$men.'}\\'."\n";	
		$men=undef;
	}
	###print if $_;
###}