#!/usr/bin/perl use strict; use warnings; use v5.10; open my $FILE ,"makefile.txt"; my $accum=""; while(<$FILE>){ chomp; if(s%(.*?)\\$% %){ $accum.=$1; } else { $accum.=$_; $accum=~s/\s+/ /gs; say $accum; $accum=""; } }