#! /usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my @array;
while(my $line = <DATA>){
   push(@array,[split(/\&\&/,$line)];
}

my @uberschneidungen;
for(1..$#array){
  push(@uberschneidungen,[$array[$_-1]->[2],$array[$_]->[2]]) if($array[$_-1]->[1] > $array[$_]->[0]);
}

print "Anzahl: ",scalar(@uberschneidungen);
print Dumper(\@uberschneidungen);

_ _DATA_ _
0800&&0900&&Text
0930&&1015&&Text
1000&&1100&&Text
1045&&1145&&Text