$x =~ s/^(?=.)/<li>/g; # LIs at the start of each line
Seems to to do the trick

artist