parser.pl

#!perl
use strict;
use warnings;
use utf8;
use Text::MeCab;
use Encode ();

my $input = Encode::decode('utf-8', $ARGV[0]);

my $mecab = Text::MeCab->new({
    userdic => 'mydic.dic',
    node_format => '%f[9]',
});
for (my $node = $mecab->parse($input); $node; $node = $node->next) {
    Encode::decode('utf-8', $node->format($mecab)) eq '俺専用' or next;
    warn $node->surface;
}