>>802
レスありがとうございます！
なるほど否定先読みを使ったアプローチをすれば良かったのですね。

マッチさせたくないケースは1行目より下に全角スペースだけの行がある場合なので
例えば
d.イロ　ハニホヘト
チリヌルヲ
のように途中にスペースを含むケースはマッチさせたいです。
なので(?:(?!\n　).)*?)としたらうまくいきました。

本題からそれますが、このHERE演算子の使い方は初めて見ました。こういう使い方も出来るんですね。
示してもらった具体例をコードにするための方法としてぴったりしていると感じました。
趣味とはいえそこそこ長い間Perlを触って来ましたが、
まだまだ知らない事だらけのような気がしてきました。リャマボン買ってみようかなー。