my $imagen = 'c:\windows\escritorio\imagen.jpg'; $imagen =~ m{\\([a-zA-Z0-9_]+\.jpg)}; my $archivo = $1; print "$archivo\n"
