Expand tabs in perl