my $file = $foo_bar_file;
	open (FILE,"<$file") || die $!;
	read FILE, my $text, -s $file;
	close(FILE);
	if($text =~ /<!--Start_of_revision-->(.*?)<!-- End_of_revision-->/sg)
	{
	print $1;
	}