mirror of
https://bitbucket.org/seefoe/dockerized-swg-src.git
synced 2026-07-14 00:01:36 -04:00
12 lines
109 B
Perl
Executable File
12 lines
109 B
Perl
Executable File
#!/bin/perl
|
|
|
|
while (<>)
|
|
{
|
|
if (s/ - \S+ \S+ \d+ \(\S+\)$// == 0)
|
|
{
|
|
die "bad string: " . $_;
|
|
}
|
|
|
|
print;
|
|
}
|