Help for this page
perl -d filename.pl
@a=@f=<DATA>; #Read everything from __DATA__ onward into
print"\n"; #goto next line, Lather, rinse, repeat.
print@a; #Finally, print the __DATA__ label, and original DATA content
Bought a souvenir
Emailed all my friends about it
Got blowed up
Hit him right dead in the jaw
Made it awkward
Took a selfie
Want to go home
Results (383 votes). Check out past polls.