@revision_array=();
my $start = qr/<!-- Start_of_revision-->/;
my $end   = qr/<!-- Start_of_revision-->/;
if (m/$start((?:(?!$end).)+)$end/msg)
    {
    push (@revision_array, $1);
    }