#!/usr/bin/perl -w
# highlight lines having characters with 8th bit on.

use strict;
my ($pfx, $str);

while (<>) {
    $str = $_;
    $pfx = '  ';
    $pfx = '* ' if tr [\200-\377] [\000-\177];
    print "$pfx $str";
}

exit(0);