open (INPUT, "<", $ARGV[0]) || die "\nError: File Read \"$ARGV[0]\"\nError: $!\n\n"; 

while ( $line = <INPUT> ) {
  if ( $line =~ /^(b|f)/) {
    print $line;
  }
}
close INPUT;