# Questo programma introduce le variabili che contengono testo
# sono indistinguibili da quelle numeriche: iniziano sempre per $

$stringa = 'AGAGCTAGCTGACTGTACGTAC';
$base = 'A';
$volte = 20;

# Anche le stringhe hanno operazioni, ma diverse da quelle numeriche:
$polyA = $base x $volte;
$mrna = $stringa . $polyA;  # <-- questa operazione si chiama concatenazione

# Stampiamo il risultato per capire come funzionano queste operazioni:
print '
 +-----------------------------------+
 | ECCO LE STRINGHE                  |
 +-----------------------------------+
';
print "La stringa e' $stringa.\n",
print "\nOPERAZIONE x \n";

# Qui sotto vediamo come stampare " in una stringa aperta con le ":
print "L'operazione \"x\", applicata alle stringe produce questo risultato:
$base x $volte = $polyA\n";
print "\nCONCATENAZIONE:\n";
print "L'operazione \".\" invece concatena le stringe:\n";
print "$stringa . $polyA = $mrna\n\n";

 +-----------------------------------+
 | ECCO LE STRINGHE                  |
 +-----------------------------------+

OPERAZIONE x 
La stringa e' AGAGCTAGCTGACTGTACGTAC.
1L'operazione "x", applicata alle stringe produce questo risultato:
A x 20 = AAAAAAAAAAAAAAAAAAAA

CONCATENAZIONE:
L'operazione "." invece concatena le stringe:
AGAGCTAGCTGACTGTACGTAC . AAAAAAAAAAAAAAAAAAAA = AGAGCTAGCTGACTGTACGTACAAAAAAAAAAAAAAAAAAAA