#!/usr/bin/perl -pi

# can't use die() in BEGIN -- it looks funny :(
BEGIN { $sp = shift or warn("usage: detab SP files...\n") and exit }
s/^(\t+)/" " x ($sp * length $1)/eg;