Select Code to Download

> perldoc -q tabs
Found in /usr/local/lib/perl5/5.6.1/pod/perlfaq4.pod
...
  @expanded_lines = expand(@lines_with_tabs);

>

   Occasionally, you can't use just a `/g' to get all the changes to
   occur that you might want.  Here are two common cases:
...
      # expand tabs to 8-column spacing
      1 while s/\t+/' ' x (length($&)*8 - length($`)%8)/e;

    print "\et" x ($tab/8), ' ' x ($tab%8);    # tab over