cat YourFile|perl -pe'$/="Title:";chomp;$_=/invalid url/?"Title:".$_:""' #### pre> perl -MO=Deparse -pe'$/="Title:";chomp;$_=/invalid url/?"Title:".$_:""' -e syntax OK LINE: while (defined($_ = )) { $/ = 'Title:'; chomp $_; $_ = /invalid url/ ? 'Title:' . $_ : '' } continue { print $_; }