chomp $name; 
$name =~ s/^(.*)(\b|\W)/$1/;