#!/usr/bin/perl -w

use strict;

my @tests = (
  "R\n\n",        # Passes
  "Roo",          # Passes
  "roo",          # Fails
  "Roo\n",        # Fails
);

foreach (@tests) {
  if (/^R..\z$/s) {
    print "$_ passes\n";
  } else {
    print "$_ fails\n";
  }
}