$user = quotemeta($user);
$user = "^$user\$";
$user =~ s/\\\*/\.\*/;
$user =~ s/\\\?/\./;
my $re;
{
	no re 'eval';
	$re = eval { qr/$user/i };
}
foreach my $name (qw/bob sam llama bo ob llamxa/) {
	print $name."\n" if ($name =~ $re);
}