UNIX for Dummies Questions & Answers

#!/usr/bin/perl

#reads line from the file and assigns to $line
while (my $_=<>){
if($ARGV ne $filename){

#total number of scores per student
$total=3;

#read arg 1
$str1=$str;
$str1=~ s/\D*(\d+).*,/$1/;

#read arg2
$str2=$str;
$str2=~ s/\D*\d+\D*(\d+).*,/$1/;

#read arg3
$str3=$str;
$str3=~ s/\D*(\d+)\D*(\d+)\D*(\d+)/$3/;
}
#for every line in file, print name and average...or while
for $_ { <-------
print "****$ARGV****"{($1+$2+$3)/$total},"\n";
        }

}