#!/usr/bin/perl -w

open(SOURCE, "30.txt") || die "Cannot open: $!";

open(FILE2SEARCH, "searchfile.txt") || die "Cannot open: $!";
@sfile=<FILE2SEARCH>;
close(FILE2SEARCH);

while (<SOURCE>) {
   $script = <SOURCE>;
   chomp $script;
<p> the next line is where my problem begins. I have warning on, but I get no errors.</p>
   @line=grep( /$script/, @sfile );
}

close(SOURCE);
open(DEST, ">>newfile.txt") or die "Can't open new.cfg: $!";
print DEST @line;
close(DEST);
##</code><code>##

 This is what 30.txt looks like
big.script.sh
onetime.scrip.sh
pay.sh
scripta.sh
scripta.1.sh
scriptbb.sh
scriptbb.1.sh
scriptbb.2.sh

##</code><code>##

 This is what searchfile.txt looks like
file="^billing.file*"           id=none synccmd="/foo/bin/scriptbb2.sh %P %D %F"
file="^pay.file*"               id=none synccmd="/foo/bin/pay.sh %P %D %F"
file="^car.file*"               id=none synccmd="/foo/bin/big.script.sh %P %D %F"
file="^last.file*"              id=none synccmd="/foo/bin/nowhere.script.sh %P %D %F"
file="^grass.file*"             id=none synccmd="/foo/bin/grass.script.sh %P %D %F"
file="^cart.file*"              id=none synccmd="/foo/bin/cart.script.sh %P %D %F"
file="^mortgage.file*"          id=none synccmd="/foo/bin/big.script.sh %P %D %F"
file="^lincoln.file*"           id=none synccmd="/foo/bin/onetime.script.sh %P %D %F"
file="^music.file*"             id=none synccmd="/foo/bin/scripta.sh %P %D %F"
file="^house.file*"             id=none synccmd="/foo/bin/scripta.1.sh %P %D %F"
file="^garage.file*"            id=none synccmd="/foo/bin/scripta.1.sh %P %D %F"
file="^tree.file*"              id=none synccmd="/foo/bin/scriptbb.1.sh %P %D %F"
file="^foo.file*"               id=none synccmd="/foo/bin/scriptbb.2.sh %P %D %F"
file="^fun.file*"               id=none synccmd="/foo/bin/notthis.sh %P %D %F"
file="^done.file*"              id=none synccmd="/foo/bin/donethis.sh %P %D %F"
file="^cement.file*"            id=none synccmd="/foo/bin/cement.sh %P %D %F"
file="^animal.file*"            id=none synccmd="/foo/bin/scripta.sh %P %D %F"

##</code><code>##

 This is what @line shoud look like after the grep

file="^car.file*"               id=none synccmd="/foo/bin/big.script.sh %P %D %F"
file="^mortgage.file*"          id=none synccmd="/foo/bin/big.script.sh %P %D %F"
file="^lincoln.file*"           id=none synccmd="/foo/bin/onetime.script.sh %P %D %F"
file="^pay.file*"               id=none synccmd="/foo/bin/pay.sh %P %D %F"
file="^music.file*"             id=none synccmd="/foo/bin/scripta.sh %P %D %F"
file="^animal.file*"            id=none synccmd="/foo/bin/scripta.sh %P %D %F"
file="^house.file*"             id=none synccmd="/foo/bin/scripta.1.sh %P %D %F"
file="^garage.file*"            id=none synccmd="/foo/bin/scripta.1.sh %P %D %F"
file="^tree.file*"              id=none synccmd="/foo/bin/scriptbb.1.sh %P %D %F"
file="^foo.file*"               id=none synccmd="/foo/bin/scriptbb.2.sh %P %D %F"