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

##</code><code>##

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

##</code><code>##

Unrecognized escape \s passed through at phonelist.pl line 28.