my $str="01234567890123456789\n";
	my $len=length($str);

	$str =~ /([^49\s])*$/;
	my $pos=$-[0] - 1;
	my $csp=substr($`,-1,1);
	print("CSP:\"$csp\" POS:$pos LEN:$len\n");