use String::Escape qw( printable unprintable );
$okstring = printable($line);