in reply to Regex required

You can answer your own question if you read http://perldoc.perl.org/perlintro.html#Regular-expressions and quotemeta 

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

[download]

In Section Seekers of Perl Wisdom