if( $l =~ /<.*?>(.*?)<\/.*?>/ ) { 
    $l = $1; 
}