in reply to Basic Regular expression

You can achieve your desired output by using this re: 
$a =~/^(.+)(e|r)?(.*)$/;

[download]
Update: Just noticed - this is almost the same as choroba's suggestion.

        ...it is unhealthy to remain near things that are in the process of blowing up.     man page for WARP, by Larry Wall

In Section Seekers of Perl Wisdom