#!/usr/bin/perl

use strict;
use warnings;

my @test = ('a' .. 'z');

for my $chr ( @test ) {
	$chr =~ s/x/&foo/e;
	print $chr;
} # for

sub foo {
	print "\nfoo called\n";
	return '';
} # foo