#!/usr/bin/perl
for (;;) {
	print "$_\$ ";
	last unless $_ = <STDIN>;
	s`^([^#]+)(#.*)?\n$`$1`;
}
