use Text::Tabs;
my $tabstop = 4;
@lines_with_tabs = unexpand(@lines_without_tabs);