well you _could_ try

print qq(Why do we have to hide from the police, daddy ?\n Because the
+y use $_->[0] and we use $_->[1], son.\n) 
    for map {$_, [reverse @$_]}[qw(emacs vi)]
[download]

but it's still pretty ugly, and not terribly extensible