Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

my $First{JAPH}=1

by leons (Pilgrim)
on Jan 10, 2001 at 19:08 UTC ( [id://50922] : obfuscated . print w/replies, xml ) Need Help??

Well ... this is kind of like my first posting here
Not too impressive, I guess, but it works ...

#!/usr/bin/perl -w use strict; open A,"<$0";my @c;push @c,$_ while(<A>); print join ' ',(substr($c[5],6,1).substr( $c[0],3,1).substr($c[0],4,1).substr($c[5] ,4,1),((substr($c[4],5,1)=~y/A/a/)?substr ($c[4],5,1):"").substr($c[4],3,1).substr( $c[5],7,1).substr($c[5],4,1).substr($c[4] ,22,1).substr($c[0],12,1).substr($c[0],5, 1),(split /\/|\s/,$c[0])[3],substr($c[4], 22,1).substr($c[4],5,1).substr($c[4],17,1 ).chr(ord('k')).substr($c[0],12,1).(split /|\s/,(split /\/|\s/,$c[0])[3])[2]."\n");
Comments are more than welcome ! Thanks ! :-)