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