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");
[download]

Comments are more than welcome ! Thanks ! :-)