#!/usr/bin/perl -p -i
###########################################
# ix2iso 
# 2005, Mike Schilli <cpan@perlmeister.com>
###########################################
use strict;
use warnings;
use Getopt::Std;
use Pod::Usage;

# use vars qw($CVSVERSION);
# $CVSVERSION = '$Revision: 1.1 $';

s/a\^/\344/g; 
s/o\^/\366/g; 
s/u\^/\374/g; 
s/A\^/\304/g; 
s/O\^/\326/g; 
s/U\^/\334/g; 
s/s\^/\337/g;

__END__

=head1 NAME

    ix2iso - Type ISO characters on a non-ISO keyboard

=head1 DOWNLOAD

_SRC_HERE_

=head1 SYNOPSIS

    ix2iso filename
    cat filename | ix2iso

=head1 DESCRIPTION

C<ix2iso> helps typing German umlauts on keyboards/applications
and converting them into ISO_8859-1.

Just append a carrot (C<^>) after C<a>, C<o>, C<u>, C<A>, C<O>, 
C<U>, and C<s>
and the script will transform the 2-char-sequence into the 
correponding umlaut.

=head1 LEGALESE

Copyright 2005 by Mike Schilli, all rights reserved.
This program is free software, you can redistribute it and/or
modify it under the same terms as Perl itself.

=head1 AUTHOR

2005, Mike Schilli <cpan@perlmeister.com>