Probably pretty basic, but...
#!/usr/bin/perl -w $standard1 = 4898.384.759838.57274
use strict;my @rray = qw ( 01001010 01110101 01110011
01110100 00100000 01100001 01101110 01101111 01110100
01101000 01100101 01110010 00100000 01010000 01100101
01110010 01101100 00100000 01001000 01100001 01100011
01101011 01100101 01110010 );#my @rray = shift;######
s/01001010/74/for @rray;s/01110101/117/ for @rray;###
s/01110011/115/ for @rray;s/01110100/116/ for @rray;#
s/00100000/00/for @rray;s/01100001/97/for@rray;######
s/01101110/110/for @rray;s/01101111/111/ for @rray;##
s/01101000/104/for @rray;s/01100101/101/for @rray;###
s/01110010/114/ for @rray;s/01010000/80/ for @rray;##
s/01101100/108/ for @rray;s/01001000/72/ for @rray;##
s/01100011/99/ for @rray;s/01101011/107/ for@rray;###
;;foreach(@rray) {print chr($_);};;print "\n";;#@rray
So, what do you think?
Thanks,
Spidy