$ag =~ s/\s+//;
if ($ag)
.
.
.