#!/usr/bin/perl -apnF"monkey"
use Data::Dumper;
print Data::Dumper->Dump([\@F]);

##</code><code>##

$VAR1 = [
          'my monkey
'
        ];

##</code><code>##

$VAR1 = [
          'my ',
          '
'
        ];