doは、ブロック内の命令文を実行し、引数で指定したコマンド列の最後の値を返します。ループ修飾子で修飾すると、ループ条件を調べる前に
引数BLOCKを実行します。ほかの文に対しては最初の条件を調べます。

doの使い方

# do を最初に実行した後、 until の条件式を評価
do {
	$line = ;
	....
}  until $line eq ".\n"; 

# $w を小文字に変換し、変換した数を出力
print do {
	$w = 'NORTON@XXXX.JP';
	$w =~ tr/A-Z/a-z/;
}