จงพิจารณาตัวอย่างต่อไปนี้
[src]
$dna="ATCGGCTA";
@output =split //,$dna;

print "Before: @output","n";

$dna2=join '-',@output;
print "After: $dna2","n";
[/src]