#! /usr/bin/perl

use strict ;
use warnings ;
use Data::Dumper ;

my $str = qq~This <b>contains</b> both text
and <a href="http://www.w3c.org">html</a>.~ ;

print $str, "\n\n" ;

# Do the replacement...
my @tags  = () ;
my $index = -1 ;
$str =~ s|<([^>]+)>(?{ push @tags, $1 ; $index++ })|<$index>|gs ;

# Show the replaced text & the stored tags.
print "-----\n", Dumper( \@tags ), "\n\n", $str, "\n\n" ;

# Sub the tags back in.
$index = -1 ;
$str =~ s|<([^>]+)>(?{ $index++ })|<$tags[$index]>|gs ;

# Show the string with the HTML put back in.
print "-----\n", $str, "\n\n" ;