diff --git a/process/files/intradata_get.pl b/process/files/intradata_get.pl
index 8027d16..a3f48db 100644
--- a/process/files/intradata_get.pl
+++ b/process/files/intradata_get.pl
@@ -75,12 +75,14 @@ sub grades_new_bonus
 
 	my $value = 1;
 	# Looking for a global value 
-	if ($lines[0] =~ /^\d+$/) {
+	if ($lines[0] =~ /^(\d+)$/) {
 	    $value = $1;
 	    log INFO, "Setting global value to $value";
 	    shift @lines;
 	}
 
+	log TRACE, @lines;
+
 	for my $line (@lines)
 	{
 	    if ($line =~ /^([a-z0-9_-]+)(?:\s*:\s*(\d+))?$/)