#!/usr/bin/perl -pn

# filtr ktery prevede &<znak> na jeho

$from	= ';^%<>\[\]\&';
$to	= ',~#(){}&';

sub trr {
	my($r)=@_;;
	$r =~  y{;^%<>[]&'}
		/,~#(){}&/;
	return$r;
}

s/~/\&nbsp;/g;
s/\&([$from])/trr($1)/ge;