get target time from MSM file

perl:
use strict;
my $lDEG=1;
my @it;
my $msm_file="Z__C_RJTD_20150408000000_MSM_GPV_Rjp_L-pall_FH00-15_grib2.bin";

0123456789a123456789b123456789c

$it[0]=substr($msm_file,10,4);
$it[1]=substr($msm_file,14,2);
$it[2]=substr($msm_file,16,2);
$it[3]=substr($msm_file,18,2);
$it[4]=substr($msm_file,20,2);
print "it:@it\n" if $lDEG;