my $start = ...;
my $end = ...;
my ( $between ) = $input =~ m/\Q$start\E(.+?)\Q$end\E/;