http://qs321.pair.com?node_id=700669


in reply to Re^2: split line
in thread split line

$line =~ s/^\s*//;