title: Extract substring using two delimiters and NO REGEX
body: <p>I have a function whose aim is to extract a substring found between two delimiters. I would use regex but in this case I have explicit instructions not to use them.</p>
  
  <p>I had a simpler and more elegant solution which was just one line but I cannot for the life of me remember or find it.</p>
  
  <pre><code>sub findBetween {
  
  my ($theString,$delimiter1,$delimiter2) = (@_);
  my $tmp = substr($theString, index($theString,$delimiter1)+length($delimiter1));
  $tmp = substr($tmp, 0, index($tmp,$delimiter2));
  return $tmp;}
  </code></pre>
  
  <p>Thank you for taking a look at this issue, I am aware it is very basic and somewhat redundant. What I need is a simpler solution involving perl basic functions and no regex.</p>