Welcome to mirror list, hosted at ThFree Co, Russian Federation.
1 2 3 4 5 6 7 8 9 10 11 12
#!/usr/bin/env perl use warnings; use strict; $|++; while(<STDIN>) { s/ \|\d+\-\d+\| / /g; s/ \|\d+\-\d+\|$//; print $_; }