/lang/perl/Acme-Jyogakusei/trunk/ - CodeRepos::Share - Tracこうか!?
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Acme::Jyogakusei;
my $jyogakusei = '女子高生';
my $re = Acme::Jyogakusei::regexp;
print "Jyogakusei\n" if $jyogakusei =~ /$re/;
あと
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Acme::Jyogakusei;
my $jyogakusei = 'なんちゃって女子高生';
my $re = Acme::Jyogakusei::regexp;
$jyogakusei =~ s/(なんちゃって$re)/おばちゃん/g;
print $jyogakusei;
こんなんもありか...