while (<DATA>) {
    chomp;
    print if substr($_,0,1) eq 'R' && length == 3;
}
 
__DATA__
raa
Raa
Raab