No, I wasn't driving at print() or print_body(), I was driving at getting the contents of the file into $some_variable that you could dump into the email with Data => $some_variable, which you did, one way or another :)

Personally, I wouldn't use qx{} to cat the contents of the file, I'd probably read it using your favorite flavor of open and <>, but as always, TIMTOWTDI.

I'm glad you arrived at your own solution, though :)

$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s
+plit//=>$*
){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#
+C]=$/;($#C
>$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^
+$$C[$%++]}
[download]