#!/usr/bin/perl
require 5.006_001;
use strict;
use warnings;
$|++;

use Text::Tabs;
my $tabstop = 8;

my $text = "12345678901234567890\n\thi\tbye";
print $text,$/,length $text,$/;
my $newtext = expand($text)
print $newtext, $/,length $newtext,$/;
__END__
## prints
12345678901234567890
        hi      bye
28
12345678901234567890
        hi      bye
40