# Looking, for instance, for "/usr/.*/?bin/perl"
  my $regex = qr{(/usr/.*/?bin/perl)}gs; 
  my ($line);
  {
    open(DF, $filename) 
      or die("Can't open $filename for input: $!\n");
        my @lines = <DF>;
    close(DF);
    $line = join('', @lines);
  }
  my @matches = $line =~ m/$regex/;
  printf "Filename: %40s Occurrances: %9d\n", 
    $filename, 
    scalar @matches;