----------------------
#!/usr/bin/perl

$user=".admin.ecc";
$uregex="~s/^\\.(\.*)?\\.\.*/\$1/";

#$user =~ s/^\.(.*)?\..*/$1/;
$regstring="\$user=$uregex";

print "$regstring\n";
eval($regstring);

print "User: $user\n";
----------------------