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