if ($3 eq q()) {
    warn "<< $.: $_ >>\n";
}