annotate 2.4/man/man3/Text::LevenshteinXS.3pm @ 14:e8620ee91ca1 draft

Uploaded
author plus91-technologies-pvt-ltd
date Fri, 30 May 2014 11:00:16 -0400
parents e3609c8714fb
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
1 .\" Automatically generated by Pod::Man 2.25 (Pod::Simple 3.16)
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
2 .\"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
3 .\" Standard preamble:
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
4 .\" ========================================================================
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
5 .de Sp \" Vertical space (when we can't use .PP)
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
6 .if t .sp .5v
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
7 .if n .sp
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
8 ..
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
9 .de Vb \" Begin verbatim text
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
10 .ft CW
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
11 .nf
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
12 .ne \\$1
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
13 ..
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
14 .de Ve \" End verbatim text
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
15 .ft R
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
16 .fi
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
17 ..
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
18 .\" Set up some character translations and predefined strings. \*(-- will
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
19 .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
20 .\" double quote, and \*(R" will give a right double quote. \*(C+ will
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
21 .\" give a nicer C++. Capital omega is used to do unbreakable dashes and
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
22 .\" therefore won't be available. \*(C` and \*(C' expand to `' in nroff,
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
23 .\" nothing in troff, for use with C<>.
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
24 .tr \(*W-
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
25 .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
26 .ie n \{\
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
27 . ds -- \(*W-
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
28 . ds PI pi
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
29 . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
30 . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
31 . ds L" ""
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
32 . ds R" ""
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
33 . ds C` ""
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
34 . ds C' ""
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
35 'br\}
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
36 .el\{\
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
37 . ds -- \|\(em\|
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
38 . ds PI \(*p
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
39 . ds L" ``
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
40 . ds R" ''
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
41 'br\}
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
42 .\"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
43 .\" Escape single quotes in literal strings from groff's Unicode transform.
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
44 .ie \n(.g .ds Aq \(aq
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
45 .el .ds Aq '
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
46 .\"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
47 .\" If the F register is turned on, we'll generate index entries on stderr for
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
48 .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
49 .\" entries marked with X<> in POD. Of course, you'll have to process the
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
50 .\" output yourself in some meaningful fashion.
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
51 .ie \nF \{\
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
52 . de IX
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
53 . tm Index:\\$1\t\\n%\t"\\$2"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
54 ..
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
55 . nr % 0
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
56 . rr F
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
57 .\}
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
58 .el \{\
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
59 . de IX
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
60 ..
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
61 .\}
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
62 .\"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
63 .\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
64 .\" Fear. Run. Save yourself. No user-serviceable parts.
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
65 . \" fudge factors for nroff and troff
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
66 .if n \{\
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
67 . ds #H 0
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
68 . ds #V .8m
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
69 . ds #F .3m
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
70 . ds #[ \f1
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
71 . ds #] \fP
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
72 .\}
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
73 .if t \{\
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
74 . ds #H ((1u-(\\\\n(.fu%2u))*.13m)
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
75 . ds #V .6m
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
76 . ds #F 0
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
77 . ds #[ \&
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
78 . ds #] \&
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
79 .\}
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
80 . \" simple accents for nroff and troff
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
81 .if n \{\
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
82 . ds ' \&
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
83 . ds ` \&
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
84 . ds ^ \&
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
85 . ds , \&
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
86 . ds ~ ~
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
87 . ds /
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
88 .\}
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
89 .if t \{\
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
90 . ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
91 . ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
92 . ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
93 . ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
94 . ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
95 . ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
96 .\}
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
97 . \" troff and (daisy-wheel) nroff accents
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
98 .ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
99 .ds 8 \h'\*(#H'\(*b\h'-\*(#H'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
100 .ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
101 .ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
102 .ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
103 .ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
104 .ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
105 .ds ae a\h'-(\w'a'u*4/10)'e
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
106 .ds Ae A\h'-(\w'A'u*4/10)'E
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
107 . \" corrections for vroff
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
108 .if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
109 .if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
110 . \" for low resolution devices (crt and lpr)
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
111 .if \n(.H>23 .if \n(.V>19 \
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
112 \{\
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
113 . ds : e
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
114 . ds 8 ss
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
115 . ds o a
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
116 . ds d- d\h'-1'\(ga
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
117 . ds D- D\h'-1'\(hy
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
118 . ds th \o'bp'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
119 . ds Th \o'LP'
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
120 . ds ae ae
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
121 . ds Ae AE
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
122 .\}
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
123 .rm #[ #] #H #V #F C
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
124 .\" ========================================================================
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
125 .\"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
126 .IX Title "LevenshteinXS 3pm"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
127 .TH LevenshteinXS 3pm "2004-06-30" "perl v5.14.2" "User Contributed Perl Documentation"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
128 .\" For nroff, turn off justification. Always turn off hyphenation; it makes
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
129 .\" way too many mistakes in technical documents.
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
130 .if n .ad l
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
131 .nh
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
132 .SH "NAME"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
133 Text::LevenshteinXS \- An XS implementation of the Levenshtein edit distance
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
134 .SH "SYNOPSIS"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
135 .IX Header "SYNOPSIS"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
136 .Vb 1
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
137 \& use Text::LevenshteinXS qw(distance);
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
138 \&
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
139 \& print distance("foo","four");
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
140 \& # prints "2"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
141 \&
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
142 \& print distance("foo","bar");
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
143 \& # prints "3"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
144 .Ve
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
145 .SH "DESCRIPTION"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
146 .IX Header "DESCRIPTION"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
147 This module implements the Levenshtein edit distance in a \s-1XS\s0 way.
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
148 .PP
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
149 The Levenshtein edit distance is a measure of the degree of proximity between two strings.
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
150 This distance is the number of substitutions, deletions or insertions (\*(L"edits\*(R")
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
151 needed to transform one string into the other one (and vice versa).
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
152 When two strings have distance 0, they are the same.
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
153 A good point to start is: <http://www.merriampark.com/ld.htm>
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
154 .SH "CREDITS"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
155 .IX Header "CREDITS"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
156 All the credits go to Vladimir Levenshtein the author of the algorithm and to
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
157 Lorenzo Seidenari who made the C implementation <http://www.merriampark.com/ldc.htm>
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
158 .SH "SEE ALSO"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
159 .IX Header "SEE ALSO"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
160 Text::Levenshtein , Text::WagnerFischer , Text::Brew , String::Approx
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
161 .SH "AUTHOR"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
162 .IX Header "AUTHOR"
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
163 Copyright 2003 Dree Mistrut <\fIdree@friul.it\fR>
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
164 Modifications Copyright 2004 Josh Goldberg <\fIjosh@3io.com\fR>
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
165 .PP
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
166 This package is free software and is provided \*(L"as is\*(R" without express
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
167 or implied warranty. You can redistribute it and/or modify it under
e3609c8714fb Uploaded
plus91-technologies-pvt-ltd
parents:
diff changeset
168 the same terms as Perl itself.