con:
$line =~ s/\s//g;
elimini tutti gli spazi contenuti nella stringa passata, pertanto poi non fai altro che stampare la stringa senza spazi.
Non ho capito il tuo riferimento a dei delimitatori. Se hai dei delimitatori e intendi stampare le stringhe contenute tra essi devi fare:
codice:# delimitatore "##" $line = "123##marco##34567" $line =~ /##[^#]##/; # ovvero trova qualunque cosa differente da "#" contenuto tra due serie di "##" print $&;