1#!/usr/lib/perl -p 2# 3# Copyright (C) 2017 and later: Unicode, Inc. and others. 4# License & terms of use: http://www.unicode.org/copyright.html 5# 6# Copyright (c) 2001-2003 International Business Machines 7# Corporation and others. All Rights Reserved. 8# Simple tool for Unicode Character Database files with semicolon-delimited fields. 9# Removes comments behind data lines but not in others. 10# The Perl option -p above runs a while(<>) loop and prints the expression output. 11s/^([0-9a-fA-F]+.+?) *#.*/\1/; 12