追記しました。

いつもコメント等でお世話になっているkitsさんからいろいろ教えて頂き、以下にそれを追記しました。

• ネットワークアドレスを求める！ - 燈明日記
• パス名からファイル名を取得する - 燈明日記

特に、以下が意外でした。

join '.', map {oct "0b$_"} $bin=~/(\d{8})(\d{8})(\d{8})(\d{8})/;

『$bin=~/(\d{8})(\d{8})(\d{8})(\d{8})/』は、カッコを使った記憶がリストで返るのですね。
知らなかったです。いつも$1,$2…等で処理していましたが…、得した気分です。
kitsさん、いつもありがとうございます！