#!/usr/local/bin/perl

$file = shift;

$data = `nkf -e $file`;

$data  =~ s/\s+/ /gm;
$data =~ s/<title>(.*?)<\/title>//i;
$title = $1;

$data =~ s/<!--.*?-->//g;
$data =~ s/<.*?>//g;

$str = substr($data, 0, 100);

@num = ($str =~ /[\x80-\xFF]/g);

$str =~ s/.$// if (@num % 2 == 1);

print "$title\n$str ...\n";
