use Expect;
$exp = new Expect;
$exp->log_stdout(0);
$exp->log_file(\&formatoutput);
$exp->spawn("/bin/sh");
$exp->send("/bin/cat /etc/passwd\n");
$exp->soft_close();

sub formatoutput {
    my $input = shift;

    # format however you'd like
    # e.g. $input =~ s/\$//g;
    # That will get rid of the $ output and leave you with
    # only data. You will also need to get rid of the
    # commands as they too will be passed to this function.
    # By that I mean /bin/cat /etc/passwd
    # You can do all types of good stuff for additional
    # formatting such as formline or format STDOUT_TOP =

    print STDOUT "\n\n$input\n\n";

    # or if you used formline print STDOUT "$^A", etc.
    # but I'll leave the particulars to you.

    return;
}
[download]

If you are using 5.8, then you could try reopening STDOUT to an 'in memory' file as described in perlfunc:open (Search for "in memory").

File handles can be opened to ``in memory'' files held in Perl scalars
+ via:

    open($fh, '>', \$variable) || ..

Though if you try to re-open STDOUT or STDERR as an ``in memory'' file
+, you have to close it first:

    close STDOUT;
    open STDOUT, '>', \$variable or die "Can't open STDOUT: $!";
[download]

I'm not certain that the Expect module would cooperate with this, but it seems likely that it would. In the above examples the output would be stored in $variable.

Remember to close/reopen STDOUT to 'con' or 'tty' depending on your OS before outputing stuff you want the user to see:)