↓は、マッチした単語がある行を示すプログラムの一部なのですが、

while (<FILE>)
{
　if ($_ =~ /$match_word/)
　　{
　　　chop;
　　　print ("line $.: $_\n");
　　}
}

特殊変数 $. で行番号を『1,10,100…』といった形ではなく、
『001, 010, 100…』といったように桁を揃えて表示させることはできますか？