$ perl -MO=Deparse,-p -e 'if ($line // "" =~ /(\bTest\b\s+.+\s+\baccount\b)?/) {}'
if (($line // ('' =~ /(\bTest\b\s+.+\s+\baccount\b)?/))) {
    ();
}
-e syntax OK