if (defined $line and $line =~ /(\bTest\b\s+.+\s+\baccount\b)?/)