[ivank]

simon171078
поможет волшебная функция trim

upd. Упс. стандартной trim нет. Но зато есть регулярные выражения.

Код:

sub trim()
{
	my $s = shift;
	$s =~ s/^\s+|\s+$//g;
	return $s;
}