#! /usr/local/bin/perl -w

use Text::Reform;

print +form { filler=>'*' },
	"Pay bearer: ^^^^^^^^^^^^^^^^^^^",
	'$123.45';

print +form { filler=>'-->' },
	"Pay bearer: ]]]]]]]]]]]]]]]]]]]",
	['$1234.50', '$123.45', '$12.34'];

print +form { filler=>{left=>'->', right=>'*'} },
	"Pay bearer: <<<<<<<<<<<<<<<<<<",
	'$123.45',
	"Pay bearer: >>>>>>>>>>>>>>>>>>",
	'$123.45',
	"Pay bearer: ^^^^^^^^^^^^^^^^^^",
	'$123.45';