# ...
   if ( $file =~ /$start_pattern(.*?)$end_pattern/s ) {
      print $1;
   }
   # ...

##</code><code>##

   #
   while ( $file =~ /start_pattern(.*?)$end_pattern/gs ) {
      print "$1\n";
   }
   #