my $s = "<foo>stuff</foo>";
#$s =~ s/<foo>(.*?)<\/foo>/<bar>$1<\/bar>/;
$s  =~ s#<foo>(.*?)</foo>#<bar>$1</bar>#;
print $s;