if ($line =~/^R.*/) {