use warnings;
use strict;


  my @array = map{$_}<DATA>;

   print @array;

   print $/;

   print join '' => @array;

   print $/;
  
   print "@array";

   print $/;

   {
     local $"='';
     print "@array";
   }

__DATA__
20130516,530,730
20130516,731,1100
20130516,1101,1200

##</code><code>##

20130516,530,730
20130516,731,1100
20130516,1101,1200

20130516,530,730
20130516,731,1100
20130516,1101,1200

20130516,530,730
 20130516,731,1100        ##  note here
 20130516,1101,1200       ## and here

20130516,530,730
20130516,731,1100
20130516,1101,1200