use strict;

use MyClass;

my $o = new MyClass;
# Properties may also be initialized at construction time.
# my $o = new MyClass ({ RegExp => "Initial RegExp" });

$o->Name = "New Name";

print "Name: `" . $o->Name . "'\n";
print "RegExp: `" . $o->RegExp . "'\n";

$o->RegExp = "My RegExp";
print "RegExp: `" . $o->RegExp . "'\n";

$o->SetMultiRegExp ("My RegExp", "My Second RegExp");
print "Multi-set RegExp: `" . $o->RegExp . "'\n";

$o->regExp = "Hacked RegExp";