Shell Programming and Scripting

use Getopt::Long;

my @ARRAY         = ();
my $currentLetter = undef;
my $ARRAYlength   = -1;
my $help          = 0;
my $FILEname      = "C:\\searching4theseletters.txt"; you have to escape a literal backslash in double quotes
my $lettersfile   = "C:\\inputletters.txt"; same

open FILE, $FILEname or die "couldn't open $FILEname: $!";
while (<FILE>) {
    chomp $_;
    push @ARRAY, $_; [color=green]Gets rid of that nasty \n at the end of the line
}
close FILE or die "problems closing $FILEname: $!";
my $linenumber = 0;
$ARRAYlength = scalar @ARRAY; Mostly for correctness

#print " $ARRAYlength";
#print(@ARRAY);
open FILE, $lettersfile or die "couldn't open $lettersfile: $!";
while ( my $line = <FILE> ) { Saves you one line
    chomp($line);
    my $originalline = $line;
    $line =~ s!^\"!!;
    $line =~ s!\"$!!;
    $line =~ s!\"\"!\"!g;
    $linenumber++;
    for ( my $x = 0 ; $x < $ARRAYlength + 1 ; $x++ ) { Initialize your variables
        $currentLetter = $ARRAY[$x]; If you want a scalar, use $ (Array = @, Element of an array = $)

        if ( $line =~ /$currentLetter/ ) {

            #print ($currentLetter);
            print($line);
            print "\n";
            last;
        }
    #next;  Not needed, end of the loop anyways
    }
}
close FILE or die "problems closing $lettersfile: $!";
exit 0;

perl -e'
  open SH, "searching4theseletters.txt" or die "$!\n";
  open IH, "inputletters.txt"           or die "$!\n";
  @sa = <SH>;
  @h{@sa} = (1) x @sa;
  print grep $h{$_}, <IH>;
  '