#!/usr/bin/perl --

use strict;
use warnings;

#~ Main(@ARGV);
Main( 'start', 'end', 'start something between end' );
exit(0);

sub Main {
  my ( $st, $en, $in ) = @_;
  print "$1\n" if $in =~ /\Q$st\E(.+?)\Q$en\E/;
  print join "\n", map { "{$_}" } split /(\Q$st\E)(.+?)(\Q$en\E)/, $in
+;

} ## end sub Main
__END__
 something between
{}
{start}
{ something between }
{end}
[download]