Created by www.tryperl.com.

testPerl.pl

#Created by tryperl.com
use strict;
use warnings;
use HTML::Strip
my string = 'Salut Hugues <a href="www.hugues.com"> go</a>';
cleanLink($string);

sub cleanLink {
                my $string = shift;
                my $hs = HTML::Strip->new();
                my $clean_text = $hs->parse( $string );
                $hs->eof;
                return $clean_text;

}