perl $/ 行分割符

[root@yyjk aaa]#cat bbb 
[2019-01-01]aaaaaaaaa[2019zhao]
bbbbbbbbbbbbbbbbbb
cccccccccccccccccc
[2019-03-02]dd
ff
gg
hh
[root@yyjk aaa]#cat a.pl 
use HTTP::Date qw(time2iso str2time time2iso time2isoz);  
use POSIX;
my $year = strftime("%Y",localtime());
my $a='bbb';
local $/="[2019";
my $i=1;
open (FILE,"<",$a) || die "$!";
    while(<FILE>){
       chomp;
       print $i.'==='.$_."\n";;
       open DATAFH,">>ccc" || die "open csdn file failed:$!"; 
       print DATAFH  $_;
       $i++;
       
  };
[root@yyjk aaa]#
[root@yyjk aaa]#perl a.pl 
1===
2===-01-01]aaaaaaaaa
3===zhao]
bbbbbbbbbbbbbbbbbb
cccccccccccccccccc

4===-03-02]dd
ff
gg
hh