#!/usr/bin/perl -w
use strict;

while (<DATA>)
{
   next if /^s*$/;   #skip blank lines
   my ($package,$ver) = /^\s*([a-zA-Z-]+)-(.+)\s*$/;
   printf "%-15s  %s\n", $package,$ver;
}
=prints
mono-basic       2.10
mono             2.10.2-r1
mono             2.10.5
=cut

__DATA__
mono-basic-2.10
mono-2.10.2-r1
mono-2.10.5