$file =~ s{(<[^>]*>)}{
    # print "'$1'\n";
    ''
}ge;