sub getContentsRange {
    my $startstring = shift;
    my $endstring = shift;
    my @text = @_;
    my $i;
    my $startnr;
    my $endnr;
    for $i (0 .. $#text) {
        if ($text[$i] eq $startstring) {
            $startnr = $i;
        }
        if ($text[$i] eq $endstring && $i > $startnr) {
            $endnr = $i;
            last;
        }
    }
    return ($startnr, $endnr);
}