1N/Aour $
VERSION =
do {
my @r = (q$
Revision:
1.6 $ =~ /\d+/g);
sprintf "%d.".
"%02d" x $
#r, @r }; 1N/A return 0;
# for the time being 1N/A # This is for PerlIO 1N/A # empty the input string in the stack so perlio is ok 1N/A $$
r_str =~ s{
# replace characters in GL 1N/A \
x0e # between SO(\x0e) and SI(\x0f) 1N/A ([^\
x0f]*)
# with characters in GR 1N/A substr($$
r_str,
0,
0)=$
ESC{
'2022_KR'};
# put the designator at the beg. 1N/A $$
r_str =~ s{
# move KS X 1001 characters in GR to GL 1N/AEncode::KR::2022_KR -- internally used by Encode::KR