#!/usr/bin/perl -w

use strict;

require '_ocr-shotnote3.pl';

my $i;
my $v;
my $do_urlenc=1;
my $en;
foreach $i (@ARGV) {
    $v = &ap($i, 100);
    $v =~ s/w/0/g;
    $en = $i;
    if($do_urlenc) {
        $en =~ tr/ /+/;
#       $en =~ s/([^A-Za-z0-9\+-])/sprintf("%%%02X", ord($1))/seg;
    }
    print "$en $v\n";
}