Petite question en PERL

Bonjour,
Que signifie ceci en perl SVP :
$var_name =~ s/^\s*([^\s]+)\s*$/$1/;

voilà le bout du programme :
for ( $ivar = 1; $ivar <= $NB_VAR; $ivar++ )
{
$var_name = <STDIN>;
chop $var_name;

$var_name =~ s/^\s*([^\s]+)\s*$/$1/;
.....
}
Merci beaucoup