How to parse out unwanted characters in a text file using Perl

[mizmaster22]

I wrote a Perl script to log into my telnet server and send the output to a text file, but I am getting a ton of weird characters within each sentence of output that I want to parse\take out. All I want to do is read in the text file and remove the unwanted characters line by line to display the correct output.

EDIT: Here are the first lines from my text file,the word data indicates the information I want and as you can see it is wrapped in the characters that I want to remove:

data data dat data data7data data data da
+ta data8                                           
+                                  
+
+7       Page   1
+8[3;23


data data                     data: data data data data, 
+data 

data: data         

data data data data                 data data data data

HERE IS MY SCRIPT:(Which is working perfectly)

 my ($hostname, $line, $password, $pop, $username);

    $hostname = "local_host";
    $username = "name";
    $password = "pass";
    $file = "log_file";
    $file1 = "dump_log";
   
    
  
use Net::Telnet ();
$pop = new Net::Telnet (Telnetmode => 1, Input_log => $file, dump_log 
+=> $file1);
   
 
$pop->open(Host => $hostname,Port => port#); 

 
$pop->waitfor('/login: $/i');
$pop->print($username); 

$pop->waitfor('/password: $/i');
$pop->print($password); 


$pop->print("terminal type");

$pop->waitfor('/Command: $/i');
$pop->print("terminal_command");


$line = $pop->get;
print $line;

open FILE, "data.txt" or die $!; 
print FILE $line; 
close FILE;

[ikegami]

You seem to have forgotten to ask a question.

[Not_a_Number]

$str =~ s/[^data,]//g;

or perhaps you have some other definition of 'unwanted characters'?

[ikegami]

Can you set the TERM=dumb in the remote session? That should avoid having those created in the first place.

[mizmaster22]

Can I set that from command line or within putty?

[ikegami]

putty? I thought you were using Net::Telnet?

If you get a "normal" shell on the remote end, $pop->print("export TERM=dumb");.

What's $pop->print("terminal type");?