Select Code to Download

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

$VAR1 = [
          'my monkey
'
        ];

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