#!/usr/bin/env perl use strict; $|++; while() { s/ \|\d+\-\d+\| / /g; s/ \|\d+\-\d+\|$//; print $_; }