All pastes #2093171 Raw Edit

Miscellany

public text v1 · immutable
#2093171 ·published 2011-11-08 20:03 UTC
rendered paste body
#!/bin/perl

while (<STDIN>) {
	m/(\w+\.\w+\n)/;
	print $1;
}