$VAR1 = ['This is a test. ',' This is a multiline test. ']; #### use strict; use warnings; use Test::More tests => 1; my @data; my @want = ('This is a test.', "This is a multiline\ntest."); { local $/ = "\nXXX\n"; chomp (@data = ); } is_deeply (\@data, \@want); __DATA__ This is a test. XXX This is a multiline test. XXX