How can I extract lines of text from a file?

*** Start (more text here)

*** Finish (more text here)

# flip-flop.pl
use strict;
use warnings;

my $start  = qr/^*** Start/;
my $finish = qr/^*** Finish/;

while ( <> ) {
    if ( /$start/ .. /$finish/ ) {
        next  if /$start/ or /$finish/;
        print $_;
    }
}

$ perl -i'copy_*' flip-flop.pl data.txt

cat yourFileHere | awk '{if (d > 0) print $0} /.*Start.*/ {d = 1}'

cat yourFileHere | awk '/.*Finish.*/ {d = 1} {if (d < 1) print $0}'

cat yourFileHere | awk '/.*Start.*/ {d = 1; next} /.*Finish.*/ {d = 0; next} {if (d > 0) print $0}'

csplit yourFileHere /Start/ /Finish/

csplit inputfile %^*** Start%1 /^*** Finish/ %% {*}

csplit $1 %^*** Start%1 /^*** Finish/ %% {*}
mv -f xx00 $1

$ sed -i '/^*** Start/,/^*** Finish/d!' *

$ sed -i -e '/./,/^*** Start/d' -e '/^*** Finish/,/./d' *

#!/usr/bin/perl -w
use strict;
use Tie::File;
my $Filename=shift;
tie my @File, 'Tie::File', $Filename or die "could not access $Filename.n";
while (shift @File !~ /^*** Start/) {};
while (pop @File !~ /^*** Finish/) {};
untie @File;

#!/usr/bin/perl -ni
if(my $num = /^*** Start/ .. /^*** Finish/) {
    print if $num != 1 and $num + 0 eq $num;
}