cat triple_swap_bearings.txt | perl -ne 's/(^[^\s]*\s*[^\s]*\s*[\w\d\ ]*?(?=\d\d\d\d\s*\d\d\s*\d\d)\s*\d\d\d\d)\s*\d\d\s*\d\d.*$/\1/; print;'


##</code><code>##

cat triple_swap_bearings.txt | perl -ne 's/(^[^\s]+\s*[^\s]+\s*[\w\d\ \-\(\)\&\/]+?(?=\s+\d\d\d\d\s+\d\d\s+\d\d)\s+\d\d\d\d)\s+\d\d\s+\d\d.+$/\1/; print;'


##</code><code>##

if ($foo == 1) { 

  my $bar; 

  unless(($bar = $socket->read()) =~ /one/) { 
    die $bar, $!; 
  } 
  $socket->write('foo'); 

  unless(($bar = $socket->read()) =~ /two/) { 
    die $bar, $!; 
  } 
  $socket->write('bar');

##</code><code>##

if ($foo == 1) { 

  unless((my $bar = $socket->read()) =~ /one/) { 
    die $bar, $!; 
  } 
  $socket->write('foo'); 

  unless((my $bar = $socket->read()) =~ /two/) { 
    die $bar, $!; 
  } 
  $socket->write('bar');