#!perl -p -ibak
if (!s/^g(Ord_\d{4}\.png)\s*$/$1/) {
    warn "Invalid line: $_\n";
    $_ = <>;
    redo;
}