my &#36filename = '???';
my @filelist = qw(/usr/bin/perl /usr/local/bin/perl);

# suchmuster vorbereiten (ineffizient bei grosser @filelist)
my &#36searchString = join("|", map {quotemeta(&#36_)} @filelist);

unless (open (FILE, &#36filename)) {
  die "Error: couldn't read '&#36filename': &#36!\n";
}
else {

  while (<FILE>) {
    chomp(&#36_);

    my (&#36size, &#36filename) = split(/\s+/, &#36_, 2); # es koennen ja auch Leerzeichen im Dateinamen sein...

    if (&#36filename =~ /^(&#36searchString)&#36/o) {
     print "&#36filename: &#36size\n";
    } # if
    
  } # while

  close (FILE);
} # else