#!/usr/bin/perl -n

$count++;
if (/gettext.*?"(.*?)"/ ) {
	print "#at line $count\nmsgid \"$1\"\nmsgstr \"\"\n";
}

