#!/usr/bin/perl
open(INFILE, "grades");
print("BEGIN - list \n");
while (<INFILE>) {
    s/^/000/;  s/F/Fail/;  s/A/Excellet/ ; s/B/Very Good/ ; s/C/Good/ ; s/D/Pass/ ;
    print;
}
print ("END - list: \n");