emboiter l'opérateur s

Bonjour,

Comme le titre bizarre le suggère, je ne sais pas bien le dire en français
alors je vais utiliser un exemple :

    my $non_normal = `ls $TL/bin`;
    $non_normal =~ s/\n/\$|/g;

Y a-t-il moyen de faire ça en une ligne ? Un peu de la même façon qu'on a le
droit de faire 

    chomp(my $non_normal = `ls $TL/bin`);

avec les deux opération `` et chomp en une instruction...

Merci d'avance !

Manuel.