[Pdx-pm] Simplistic, yet complicated question....

[Michael P]

On Mon, 9 Dec 2002, aj wrote:

> Does this make better sense?

Yeah.

s/  .*$// will do everything you so-rightly want.

e.g.:
while(my $line = <>) {
  $line =~ s/  .*$//;
  print $line, "\n";
}