$_ = "(KONAMI ORIGINAL) END OF THE CENTURY <BASIC> / NO.9";
my ($source,$title,$mode,$artist) = m|^\(([^\)]*)\) ([^<]*)<([^>]*)> / (.*)$|;
print ">$source< >$title< >$mode< >$artist<\n";