#!/usr/bin/perl
#
#  this script counts the number of references (@) in a file
#
#  This script is part of the XBibFile software package.
#  Writer:  Ross Maloney
#  Date:    August 2000
#
while ( <> ) {
  if ( /@/ )  {
      $count++;
  }
}
print "number of references =  $count\n";