#!perl # unexpand -a use Text::Tabs; while (<>) { print unexpand $_; }