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 $&;