view release on metacpan or  search on metacpan

script/brl2brl  view on Meta::CPAN

} ); # new
if( $warn ){
  $brl_obj->{warn} = 1;
} # if

my $content;

# If raw text, e.g. windows-1252.
if( $raw_data ){
  use open IO => ":raw";
  binmode(STDIN);
  $content = <>;
} else {
  local $/;
  $content = <>;
} # if

my $s = $brl_obj->switch_brl_char_map( $content );

print "$s";