Help for this page

Select Code to Download

Select or download this

$_ = "package MyClass::Subclass::one; package Myclass::two;";

/^(\w+) ([\w:]+)\;/;
 print $2;