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

##</code><code>##

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