Gerard Robin wrote:
> Hello,
Hello,
> I guess that one can write in more perlish fashion that I did: the part
> between the #### of this script to pack the array @array.
>
> Please, can someone give me some hint ?
You don't need to use an array for that:
my $string = "[EMAIL PROTECTED] n??e#w [?! \$ \% y]e{?]a##r? 2\*0\$0'\"6\# !
\^";
$string =~ tr/ [EMAIL PROTECTED]"^'"][*{/ /sd;
print "$string\n";
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
