for( $_ = 'fred'; print "loop\n" and s/(.)//; ) {
    print qq'I saw [$&]\n'; 
    redo if $& eq 'e';
}
__END__
loop
I saw [f]
loop
I saw [r]
loop
I saw [e]
I saw []
loop
I saw [d]
loop