my $a = "This is Perl"; $a =~/^(.+)(e|r)(.*)$/;