Select Code to Download

...

print Dumper \@a;

...
          '"day"',
          '"today"'
        ];

@b = $string =~/
...

print Dumper \@b;

        
$VAR1 = [
...
          undef,
          'today'
        ];

...
/gx;

print Dumper \@c;

$VAR1 = [
          '1',
...
          'day',
          'today'
        ];