#!/usr/local/bin/perl -w
use 5.6.0;
use Jcode;

undef $/;

$list = <>;

#print $list, "\n";
#exit( 0 );

($code, $nmatch) = getcode( \$list );
printf( "%s(%d)\n", $code, $nmatch );