use warnings;
use strict;

while ( defined( my $filename = <DATA> ) ) {
    chomp $filename;
    if ( my ( $product, $year, $month, $day, $hour, $suffix, $ver ) =
        $filename =~ m/^(.+?)\.(\d{4})(\d{2})(\d{2})(\d{2})\.(.+?)\.(.+?)\./ )
    {
        print join ' ', ( $product, $year, $month, $day, $hour, $suffix, $ver ),
          $/;
    }
}

__DATA__
3B40RT.2000033121.7.bin.gz
3B40RT.2000033121.7R.bin.gz
3B40RT.2000033121.7RWER.bin.gz