tools/unicode/c/genprops/misc/ucdstrip.pl - external/github.com/unicode-org/icu - Git at Google

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