...
if (
        my ( $product, $year, $month, $day, $hour, $suffix, $ver ) =
        $filename =~ m/^(.+?) # matches PRODUCT
                       \.
                        (\d{4}) # matches YEAR
                        (\d{2}) # matches MONTH
                        (\d{2}) # matches DAY
                        (\d{2}) # matches HOUR
                      \.
                        (.+?)   # SUFFIX matches both 7,7R or 7anything
                      \.
                        (.+?)   # VERSION 
                      \./x
      )
    {
        print join ' ', ( $product, $year, $month, $day, $hour, $suffix, $ver ),
          $/;
    }
...