my $num = $frameDesc =~ /(\d+)$/ ? $1 : 0;
print FH "FTP $num\n";