#!/usr/local/bin/perl -w

use strict;

while (my $line = <DATA>) {
  chomp $line;
  my $count = 0 ;
  if ($line =~ /schedule:(\s+)(\w+)/gi){
    my $count++;
    if ($count == 1){ my $first = $2; print "first one is $first\n"; }
    if ($count == 2){ my $second = $2; print "second one is $second\n"; }
  }
}

__DATA__
Schedule:          Full
   Type:            Full Backup
   Frequency:       every 1 day
   Retention Level: 2 (5 weeks)
   Maximum MPX:     1
   Residence:       (specific storage unit not required)
   Volume Pool:     (same as class volume pool)
   Daily Windows:
         Saturday   02:00:00  -->  Saturday   12:00:00

Schedule:          CINC
   Type:            Cumulative Incremental Backup
   Frequency:       every 1 day
   Retention Level: 2 (5 weeks)
   Maximum MPX:     1
   Residence:       (specific storage unit not required)
   Volume Pool:     (same as class volume pool)
   Daily Windows:
         Sunday     02:00:00  -->  Sunday     12:00:00
         Monday     02:00:00  -->  Monday     12:00:00
         Tuesday    02:00:00  -->  Tuesday    12:00:00
         Wednesday  02:00:00  -->  Wednesday  12:00:00
         Thursday   02:00:00  -->  Thursday   12:00:00
         Friday     02:00:00  -->  Friday     12:00:00