#!/usr/bin/perl -w
# vim: set sw=8 ts=8 si et:
# 
use strict;
# global variables:
use vars qw($opt_h);
my $i=0; 
use Getopt::Std;
#
&getopts("h")||die "ERROR: No such option. -h for help.n";
&help if ($opt_h);
#
open(FD,"abb.txt")||die "ERROR: can not read file abb.txt\n"; 
while(<FD>){ 
    $i++; 
    if (m/^(\S+)\s/){
        # $1 holds now the first word (\S+)
        print "$1 is the abbreviation on line $i\n"; 
    }else{
        print "Line $i does not start with an abbreviation\n";
    }
} 
close FD; 
#
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
sub help{
        print "help text\n";
        exit;
}
#-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
__END__