open ( input , "<input.doc" ) or die " couldn't ";
while (<input>)
{
if(m/$grade/) { $subLine = $_ }
} 

# not sure