use strict;
use warnings;

while (my $line = <DATA>) {
    chomp $line;
    if ($line =~ /^[a-z-]+(\d.*)$/) {
      print ">>$1<<\n";
    }
}


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