You want to avoid goto for this kind of thing - you are better off using a conditional looping construct:

#!/usr/bin/perl -w
#
                                                                      
+          
use strict;
                                                                      
+          
my $value;
                                                                      
+          
while ( not defined $value or $value eq 'R' )
{
   chomp($value = <STDIN>)
                                                                      
+          
   if ( $value eq 'E')
   {
      exit;
   }
}
[download]

update: removed the extraneous while

/J\