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

 #!/usr/lib/perl -p
 # 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) 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/;