scratchpad
Xiong
<c>
# Write results to output file.
open my $out_fh, '>', $out_filename
or die "Couldn't open $out_filename for writing";
say {$out_fh} $indata;
close $out_fh
or die "Couldn't close $out_filename";
</c>
<table ><tr bgcolor="ff6"><td><c>Output:</c></td></tr>
<tr><td>
<c>
XYZ XYZ XYZ XYZ XYZ
XYZ xyz foo ATGC atgc JAPHATGC
XYZ
XYZXYZXYZ
</c>
</td></tr></table>