#!/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";
}
####
urpmi-parallel-ssh-4.0-20.1mdk.noarch.rpm
urpmi-parallel-ssh
4.0-20.1mdk
noarch
rpm
##
##
urpmi-parallel-ssh-4.0-20.1mdk.noarch.rpm
urpmi
-ssh
4.0
20.1mdk