Select Code to Download

use Data::JavaScript;
my @array = ( 1, 2, "f\no\no\n\bar" );
...
my_array[1] = 2;
my_array[2] = 'f\012o\012o\012\010ar';

<a href="javascript:alert('f\012o\012o\012\010ar');">
 alert('f\012o\012o\012\010ar')
</a>