#!/usr/bin/perl
use strict;
use warnings;

my $variable1;
my $variable2;
...
.....
foreach(@ARGV) {
if(/^ftp.*/i) {
$variable1 = $_;
} else { #oder elsif und Muster
$variable2 = $_;
}
}