タブとスペースの相互変換

　Text::Tabsモジュールを使います。
　expandでタブ→スペースに、unexpandでスペース→タブに変換します。
　$tabstopでスペースの数を設定できます。設定しない場合は8が設定されます。

use Text::Tabs;

$tabstop = 4;
my @src = <>;
my @dest = expand(@src);
foreach (@dest) {
	print;
}