$fname =~ s/^\s*(.+?)\W*$/$1/;