use Text::Tabs;

$tabstop = 8;

print expand("Hello\tthere!");