#!/usr/bin/env perl
#
# printable - filters out printable characters from the input
#
# $Id: printable 662 2009-10-01 18:56:26Z rp $

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

use warnings;
use strict;

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