Select Code to Download

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

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