Help for this page
rpm -qa fipscheck-1.2.0-1.el5.x86_64 ... libXi-1.0.1-4.el5_4.i386 perl-Carp-Clan-5.3-1.2.1.noarch rpm-build-4.6.1-2.el5.x86_64
my ($name, $version, $release, $arch); if ($line =~ /^(\w-+)-(\d.+)-(\d?)\.(\w+)$/) { ... $release = $3 $arch = $4; }