my @temp = $str =! /([PT]\d+[YMWDHMS])/g;