@iparray = ( $record =~ m[(\d+)]g )[0..3];