$nospace =  $1 if $string=~m/^\s*(\w+)\s*$/  ;
print $nospace  ;