#!/usr/bin/perl
use warnings;
use strict;

#Header
printf "%-12s %-10s %s\n", qw(Number User Comments);

my $result =`cmd to get the result`;

my %users;
while ($result =~ /number (\d+).*user:\s*(\S+)\s*#\s*(.*)/g) {
    my ($number, $user, $comment) = ($1, $2, $3);
    printf "%-12s %-10s %s\n", $number, $user, $comment;
    $users{$number} = [ $user, $comment ];
}

print 'Select a number: ';
my $input = <STDIN>;
chomp $input;
if (exists $users{$input}) {
    print "@{ $users{$input} }\n";
} else {
    print "Unknown number.\n";
}