if($string =~ /^R[a-zA-Z]{2}\z/) {
    ...
}