Script perl aide

#!/usr/bin/perl
# Déclarations des variables
my ($file, $from, $to) = @ARGV? # Les arguments du programme s'enregistre dans cet array
# Exemple théorique, si en lance le script avec la commande :
# script.pl .\lolilol.txt arg2 arg3
# Il enregistrera :
# $file = ".\lolilol.txt"
# $from = "arg2"
# $to = "arg3"
my $fh? # Peut être file handle. En tous cas, vu qu'il y a while(<$fh>), je me dit que ce doit être la ligne courante du fichier $file qu'on lit
my $matching = 0? # Booléen qui permet de savoir si on a une équivalence, et donc de continuer d'autres opérations en condition (Sinon il servirait à rien, autant break)
open($fh, $file) or die $!? # On ouvre le fichier $file dans son handle (Ou devrais-je dire Stream) qui est nommé $fh. Si on peut pas lire, on ferme l'application.
while(<$fh>) # Tant qu'on parvient à lire un morceau du fichier (Une ligne)
{
if(/\Q$from\E/) { $matching = 1? } # ça ressemble à un regex, mais je ne comprends toujours pas ce qu'est l'argument $from exactement. En tous cas, ici on cherche une équivalence.
if($matching) { print $_? } # Afficher la ligne, peut être ...
if($matching && /\Q$to\E/) { last? } # C'est  quoi last?
}
close($fh)? # Traitement terminé, on ferme $file à travers son handle $fh