Select Code to Download

my $R = 'Russ Ethan Jason Eric';
$R =~ /Ethan/;
print index($R, $&), "\n";
$R =~ /Eric/;
print index($R, $&), "\n";

my @R = ('Russ Ethan Jason Eric JAPH', 'JAPH vroom Ozymandias neshura 
+Russ');

...
    print "Found $& in string $i at: ", pos($R[$i]) - length $&, "\n";
  }
}