$test =~ s{$re}{
	print "BLA: $1 \n";
}ge