Did you save it in a file?
I won't comment (nor vote) on this code,
except to say it can be made more friendly to those who copy and
paste by NOT using <DATA> nor opening $0.
For example, with the slight modification here:
#!/usr/bin/perl
END{s/\s//gix;s /(\w\w)/chr (hex$1)/gex;; eval;};$_=<< 'Frank Zappa'
0A4076656765746 1626C657320 3D20717728637 563756D62657 2207A75636368
69 6E69 2073 71 756 17 36 820 63 6172
7 26F7 4293 B0 A40 73 65 637 26 5746
D657 3736 16 765 20 3D 207 17 7285
A61707 06120707265 736964656E742 0666F7220467 2616E6B293B0A
40706F 6F7073686F6 F747B4076656 7657461626C 65737D203D204
073656 3726 57 46D6 5737 36 1676
53B0A7 07 2696 E7 4206 A6F6 96 E202
2202 22C 4070 6F 6F70 7368 6F 6F74
7B736F727420407 6656 76 5746 1626 C6 5737
D2C225C6E223B0A 2320 72 616D 2069 74 210A
Frank Zappa
And well, at least the eval'd code is not a simple print. :-)
