$_ = "package daa; package MyClass::two; package Myclass::SubClass::three;";
 /^(\w+) (\w+)\;/;
 print $2;

##</code><code>##

$_ = "package MyClass::Subclass::one; package Myclass::two;"
(please note the semi-colon after the module name)