$_ = "123";
s/(.)/ my $r = " LEFT "; if($1 eq '1'){ $r = " one " } $r /eg;
print "$_\n";
__END__
 one  LEFT  LEFT