use strict;
my $str = '/**
* This is a summary.
* This is a {@internal beautiful}} description.
*
* @see \\SimpleXmlElement the XML reader with which this object is constructed
* @var \\SimpleXmlElement {
* The configuration root node that contains all settings for this component.
* @property string \\$name
* @property integer \\$version
* }
*/';
my $regex = qr/#
# DocBlock to PHPDoc
#
# @author Richard Fussenegger <richard@fussenegger.info>
#
# Original phpDocumentor RegExp
#[ \t]*(?:\/\*\*|\*\/|\*)?[ \t]{0,1}(.*)?
#
(?:^\s*\/\*\*\s+(?:\*[ \t]?)?|\s+\*\/\s*|[ \t]+\*[ \t]?)
/xp;
my $subst = '';
my $result = $str =~ s/$regex/$subst/rg;
print "The result of the substitution is' $result\n";
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html