sub substr_it{
	( substr( $_[0], 413,  30),
	, substr( $_[0], 373,  30),
	, substr( $_[0], 343,  30),
	, substr( $_[0], 245,  15),
	, substr( $_[0], 679,  30),
	, substr( $_[0],  10,  10),
	, substr( $_[0], 900, 100),
	, substr( $_[0], 500,   2),
	, substr( $_[0], 313,  30),
	, substr( $_[0], 844,  44),
	, substr( $_[0], 111,   1),
	, substr( $_[0], 100, 100),
	, substr( $_[0], 454,  30),
	, substr( $_[0], 240,   3),
	, substr( $_[0], 236,   4),
	);
}