#!/usr/local/bin/perl -w
@\=qw([q-z] [A-Z] [b-g] i [k-o] \s);$a=sub
{(m&$\&&?s&$\&&&&&&$a:$_)};$b=sub{for$&(
@\){&$a}$_};print&$b while(<DATA>);__END__
just add peter to the list.