#!/usr/bin/perl
 
use strict;
use warnings;
 
sub TIESCALAR {bless \(my $i = 0) => 'main'}
sub FETCH     {$$_ [0] ++ % 3 ? "-" : "<br>"}
 
tie $" => 'main';
 
my $num = "0123456789" x 3;
 
my @n   = $num =~ /\d{5}/g;
 
print "@n\n";
__END__
[download]