Mark Fowler said:

> On Wed, 29 Jan 2003, Dave Cross wrote:
>
>> And that can be simplified to
>>
>> my @array = $input =~ /(..)/g;
>
> And that can be simplified in turn to
>
> my $output = join '-', $input =~ /(..)/g;

And that can be simplified in turn to

my $output = join '-', $input =~ /../g;

Which is basically what I wrote last night :-)

-- 
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net


Reply via email to