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