while( my $line = <IN> ) { 
    chomp($line); 
    $line =~ s/\[//g;   # Remove ['s  
    $line =~ s/\]//g;   # Remove ]'s 

    # Either print out to STDOUT here or 
    # write to another file 
}