while ($_[0] =~ /\[\/?(lien|url|citation|img)\]/sg) { 
		print "BLA: $1 \n";
	}