#!/usr/bin/env perl while (<>) { $_ =~ s/^\t//; print $_; }