>>874
まあ何つうか、データの形式とかが重要だったり、
あと出力をどのような形式でするのかということに依存するんじゃないかな
固定長なのか区切り文字データなのかでも違うし

出力、入力ファイルハンドルが存在すると仮定して、出力はこんな感じだろ
while(<$IN>){
    next if (/\A鈴木/&&/\s女\s/);
    print $out $_;
}

（女、一文字の姓、名が存在しないと仮定して）