in reply to Chop command that removes the first character

Well then, my original solution works: 
$textvar =~ s/^\s+//;

[download]
I use this one a lot.

In Section Seekers of Perl Wisdom