Help for this page

Select Code to Download


  1. or download this
    $_ = "package MyClass::Subclass::one; package Myclass::two;";
    
    /^(\w+) ([\w:]+)\;/;
     print $2;