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

while (my $line = <DATA>)
{
  next if $line =~ /^\s*$/; #skip blank lines
  
  my ($label, @rest) = split ' ', $line;
  
  my @pairs;
  while (@rest)
  {
     my $first_num_thing = shift @rest;
     my $paren_thing = shift @rest;
     push @pairs, "$first_num_thing $paren_thing";
  }
  
  @pairs = sort @pairs;  #may need special sort??
  
  foreach my $col (@pairs)
  {
     print "$label $col\n";
  }
}  

=prints
10GBE_ADDR1 R3629.2 (ANALOG:107)
10GBE_ADDR1 R3633.1 (ANALOG:107)
10GBE_ADDR1 U212.19 (INPUT:107)
=cut


__DATA__
10GBE_ADDR1 R3629.2 (ANALOG:107) R3633.1 (ANALOG:107) U212.19 (INPUT:107)

##</code><code>##

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

while (my $line = <DATA>)
{
  next if $line =~ /^\s*$/; #skip blank lines
  
  my ($label, $rest) = split ' ', $line,2;
  
  (my @pairs) = $rest =~ /(\S+\s+\S+)/g; #called "match global";
  @pairs = sort @pairs;
  
  foreach my $col (@pairs)
  {
     print "$label $col\n";
  }
}  

=prints
10GBE_ADDR1 R3629.2 (ANALOG:107)
10GBE_ADDR1 R3633.1 (ANALOG:107)
10GBE_ADDR1 U212.19 (INPUT:107)
=cut


__DATA__
10GBE_ADDR1 R3629.2 (ANALOG:107) R3633.1 (ANALOG:107) U212.19 (INPUT:107)