my ($name, $version, $release, $arch);
if ($line =~ /^(\w-+)-(\d.+)-(\d?)\.(\w+)$/) {
    $name = $1; 
    $version = $2
    $release = $3
    $arch = $4; 
}