use warnings;
use strict;
my $scheduleData = <<SDATA;
SCHEDULE OTHER_NAME
DONTCARE
NOTIMPORTANT
:
MNDJWIEL#DIFFERENTDATA 
 OTHERDATA
 NOTIMPORTANT
END

SCHEDULE NAME_I_WANT
DONTCARE
NOTIMPORTANT
:
MNDJWIEL#OTHERDATA
 OTHERDATA
 NOTIMPORTANT
END
SDATA

my $defLine = 'MNDJWIEL#OTHERDATA';
open my $schdIn, '<', \$scheduleData or die "Can't open 'Schedule': $!";
my @values=();
while (<$schdIn>) {
  if (/(^SCHEDULE)(.*)/) { # SCHEDULE SCHEDULENAME, I only want the name. 
	push(@values, $2);
  }
  if (/$defLine/) {
	print $values[-1];
	last;
  }
}