sub pre_write_parse{ 
	my $dbh=shift; # My database handle 
	my $string=shift; # The incoming string that needs checking 
	my @matches = ( $string =~ /\@([^\@]+)\@/gi);  # And here were the brackets I was missing, hehe 
	for (my $i=0;$i<=$#matches ;$i++) { 
		$matches[$i]=mylib::string::strict_wash_allow_space($matches[$i]); # just a security-precaution 
		my $sth = $dbh->prepare("select userId from users where nickname='$matches[$i]'"); 
		my @user = mylib::db::fetch_data( $sth ); 
		if ($#user>-1) { 
			$string =~ s/\@$matches[$i]\@/\[namelink\]$user[0]{userId}\:\:$matches[$i]\[\/namelink\]/gi; 
		} 
	} 
	return $string; 
}