#!/usr/bin/perl -w use strict; while () { s/^\/[\S]+\s//; print "$_\n"; } __DATA__ INVALID ORDER-NO 4546090 INVALID ORDER-NO 4546090 INVALID ORDER-NO 4546090 INVALID ORDER-NO 4546090 INVALID ORDER-NO 4546090 /base-dir/dir/foo.txt INVALID ORDER-NO 4546090 INVALID ORDER-NO 4546090 INVALID ORDER-NO 4546090 #### while () { chomp; s/^\/\S+\s//; print "$_\n"; }