#!/usr/bin/env perl
#
# printable - filters out printable characters from the input
#
# $Id$

# I think I have all of them now ...

use warnings;
use strict;

while (<>)
{
  s#[^\w\s@\#!\$%^&*()_+-={}\[\]|\:;"'`~<,>.?/\\]##go;
  print;
}