#!/usr/bin/perl -w
use strict;

my $text = "This is in *Bold* and so is *This*!";

$text =~ s/\*(.*?)\*/<em>$1<\/em>/g;

print $text;