#!/usr/bin/perl -w
use strict;
my $output;
$output = $ARGV[0].".clean";
open (INF, "< $ARGV[0]");
open (OUF, "> $output");
while (<INF>)
    {    
    s/{BS}/\b/g;
    }
print OUF $riga;
close (INF);
close (OUF);