#! /usr/bin/perl

use strict;
use warnings;

my $sign = '#';
my $string = qq~Normaler Text! #Aufzählung1# #Aufzählung2# Normaler Text usw. #Aufzählung3#~;

$string =~ s/$sign([^$sign]+)$sign\s?/<li>$1<\/li>/g;
$string =~ s/(<li>.*?<\/li>(?!\s*?<li>))/<ul>$1<\/ul>/g;

print $string;