#!/usr/bin/perl -w

$filename = "urpmi-parallel-ssh-4.0-20.1mdk.noarch.rpm";
print "$filename\n";
if ($filename =~ m/([a-zA-Z0-9]+)(\-\w+)*-([0-9.]+)-([0-9.]+mdk)\.(\w+)\.rpm/)  {
    print $1 . "\n";
    print $2 . "\n";
    print $3 . "\n";
    print $4 . "\n";
}