[perl] espressione regolare dinamica con variabile

[Mircodj]

Ragazzi mi trovo ad affrontare per la prima volta un problema del genere e quindi premetto che non sono molto esperto in materia.
Vado subito al dunque...

mettiamo il caso che io riceva un imput da tastiera e vorrei trovare in un testo la parola passata da tastiera utilizzando le regex come faccio?

mi spiego meglio:

mettiamo caso io ricevo "pippo" da tastiera e associo questa stringa ad una variabile quindi

my $stringa_letta_da_tastiera="pippo"; 

io vorrei cercare in un testo questa stringa utilizzando una semplice regex di questo tipo

if($mio_testo=~m/pippo/)
{
  print "trovata";
} 

fin qui funziona tutto bene

il problema nasce che io nella mia regex non posso inserire staticamente pippo poichè non so a priori che input da tastiera mi da l'utente quindi ho provato a fare

my $regex="m/".$stringa_letta_da_tastiera."/";
if($mio_testo=~$regex)
{
  print "trovata";
} 

cosi non funziona!
sicuramente sbaglio nella costruzione dell'espressione regolare ma non ho proprio idea come fare.
credo sia molto + difficile da spiegare che da fare.
grazie cmq