ikegami made justice to your question by providing a generous explanation, there are a couple of things I'd like to add, you haven't provided sample inputs of the type of data you wanted to run this script on with regard to SOURCE, FILE2SEARCH and DEST, you haven't shown how this data looks like and whether appending to DEST every time you run this script is acceptable because probably by then DEST would contain a lot of duplicates.

Another thing, you did not abide by the mantra which says: 

use strict;
use warnings;

[download]
This would be saving you a lot of debugging headaches, so you may want to pick up this habit urgently.

Now, on to your code and changing: 

while (<SOURCE>) {
   $script = <SOURCE>;
   chomp $script;
   @line=grep( /$script/, @sfile );
}

[download]
to: 
while(read(SOURCE, $script,1)){ #reading one byte at a time
     chomp $script;
     @line=grep( /$script/, @sfile );
     }

[download]
made the script work as well, but I can't tell if it serves what you sought for lack of samples that should have been provided.
Excellence is an Endeavor of Persistence. Chance Favors a Prepared Mind.

In reply to Re: Perlwanab grep array elemetns against another array by biohisham
in thread Perlwanab grep array elemetns against another array by Perlwanab

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.