title: extracting data from a file using perl
body: <p>Using Perl in Shell script, I am trying to extract word "apple" from a text file called "Fruit.txt"(The file holds name of different fruits) </p>
  
  <p>For that I created a created a script as follow:</p>
  
  <pre><code>#!/usr/bin/perl
  $t = 'cat Fruit.txt';
  </code></pre>
  
  <p>How can I now extract substring (in this case apple) from this file using grep - o. Thank you</p>