$backticks = `curl http://de.wikipedia.org/wiki/Br%C3%BCgg`; 	

@funde = $backticks =~ m/Br\wgg/gs;
print "@funde\n";

use DBI;
print DBI::data_string_desc($backticks)."\n";