my ($ip,$interface) = ('192.168.1.1', 'POS1/0/0');
my $filename = sprintf '%s--%s.txt', $ip, $interface =~ s#/##gr;
print $filename, "\n";