Select Code to Download

  my $string = 'Field1:  one';
  print "$1\n" if $string =~ /(?:Field1:|Field2:|Field3:)\s+(\w{3})/;

  my $string = 'Field1:  one';
  print "$1\n" if $string =~ /Field\d:\s+(\w{3})/;