use 5.020;
use strict;
use warnings;
sub saeaoagr () {
print "foo";
qr/x/;
}
say ("fee" =~ s/e/o/gr . "bar");
say ("fee" =~ s!e!o!gr . "bar");
say ("fee" =~ s|e|o|gr . "bar");
say ("fee" =~ s{e}{o}gr . "bar");
say ("fee" =~ s(e)(o)gr . "bar");
say ("fee" =~ s[e][o]gr . "bar");
return m/e/gr;
return m!e!gr;
return m|e|gr;
return m{e}gr;
return m(e)gr;
return m[e]gr;
say ("fee" =~ s?e?o?gr . "bar");
say ("fee" =~ s'e'o'gr . "bar");
say ("fee" =~ s"e"o"gr . "bar");
say ("fee" =~ s aeaoagr . "bar");
say ("fee" =~ s#e#o#gr . "bar");
say ("fee" =~ saeaoagr . "bar");
say ("fee" =~ s
(e)(o)gr . "bar");