#!/usr/bin/perl

use strict;

my $str = "wir sehen hier <b>fette Text</b>";

print parser($str);

sub parser {
	my $data = shift;

	my %html_tags = (
		fett		=> "<b>%s</b>",
		kursiv	=> "<i>%s</b>",
		zitat		=> "<blockquote>%s</blockquote>",
                link           => "<a href="%s">%s</a>",
                bild           => "<img src="%s">"
	);

	return;
}