9.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 my $max = 0;
   6 while (<>) {
   7         chomp;
   8         y/FBRL/0110/;
   9         my $seat =  eval "0b$_";
  10         $max = $seat if $max < $seat;
  11 }
  12
  13 print $max, "\n";