Select Code to Download

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
+;'

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;'

if ($foo == 1) { 

  my $bar; 
...
    die $bar, $!; 
  } 
  $socket->write('bar');

if ($foo == 1) { 

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