Shell Programming and Scripting

$mystring = "The start text always precedes the end of the end text.";
if($mystring =~ s/start(.*)end/\0/) {
        print $1;
print "\n";
print $mystring;
}

$ cat script.pl
use warnings;
use strict;

my $mystring = "The start text always precedes the end of the end text.";
print "$mystring\n" if $mystring =~ s/\bstart\b.*\bend\b//;
$ perl script.pl
The  text.