sub display {
    map {
        (my $s = $) =~ s/[[:cntrl:]]/^A/g;
        $s;
    } @_;
}