(1) onetwo
    three

(2) a:
    b: gfedcba

(3) #!public/bin/perl

    chop($a = <STDIN>);
    while ($a ne "") {
        $b .= chop($a);
    }
    print "\Ua: $a\n";
    print "\Ub: $b\n";