#!/usr/bin/perl -w

use strict;

while( <> )
{
   s/^\s*//;
   print;
}