#!/usr/bin/perl
use strict;
use warnings;

for( $_ = "fred"; s/(.)//; )
	{
	print "I saw the character [$&]\n";
	redo if $& eq 'e';
	}